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COMPUTER PROGRAMS FOR CALCULATING AND PLOTTING 


THE STABILITY CHARACTERISTICS OF A BALLOON 
TETHERED IN A WIND 

By Robert M. Bennett, Samuel R. Bland, 
and L. Tracy Redd 
Langley Research Center 

SUMMARY 

Descriptions are presented for six related computer programs for calculating the 
stability characteristics of a balloon tethered in a steady wind. Equilibrium conditions, 
characteristic roots, and modal ratios are calculated for a range of discrete values of 
velocity for a fixed tether -line length. Separate programs are used (1) to calculate longi- 
tudinal stability characteristics, (2) to calculate lateral stability characteristics, (3) to 
plot the characteristic roots versus velocity, (4) to plot the characteristic roots in root- 
locus form, (5) to plot the longitudinal modes of motion, and (6) to plot the lateral modes 
of motion. The basic equations, program listings, and the input and output data for 
sample cases are presented, with a brief discussion of the overall operation and limita- 
tions. The programs are based on a linearized, stability- derivative type of analysis, 
including balloon aerodynamics, apparent mass, buoyancy effects, and static forces which 
result from the tether line. 


INTRODUCTION 

Tethered balloons are used for many purposes such as supporting antennas or 
carrying measuring instruments aloft. Dynamic instabilities during high-wind conditions 
often limit the operation or utility of these devices. Although some limited early sta- 
bility work (refs. 1 to 2, for example) and more recently some work including cable 
dynamics (refs. 3 to 6, for example) has been done, a systematic study of the factors 
involved in the stability of tethered balloons is apparently lacking. The Langley Research 
Center has undertaken a research study to develop methods for stability analysis. Por- 
tions of this study are given in references 7 to 10. 

The purpose of this report is to list and describe the operation and use of six 
related computer programs for calculating the stability characteristics of a balloon 
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tethered in a steady wind and for plotting the results. The analysis on which the pro- 
grams are based is given in reference 8. It is essentially a linearized, stability- 
derivative type of analysis of dynamic motions in either the longitudinal plane or in the 
lateral plane. Buoyancy forces, aerodynamic apparent masses, and the static spring 
forces resulting from the tether cable are included, in addition to the usual static and 
dynamic aerodynamic terms. 

A listing of each program is given along with a listing of input and output data for a 
sample case. The overall operation of the programs and some of their limitations are 
discussed. Usage descriptions of several of the basic subroutines are given in the 
appendix. 


SYMBOLS 


In addition to the symbol definitions given here, symbols relating to the input data 
are more specifically defined in the sections of this report which describe the input data 
required by the programs. 


A 

B 

C 

CD 


C Z 

c 


m 


C Y 


matrix of coefficients of acceleration terms in equations of motion 
matrix of coefficients of velocity or rate terms in equations of motion 

matrix of coefficients of displacement terms in equations of motion 

D 


drag coefficient, 
lift coefficient, 


pV 2 s/2 
L 

pV 2 s/2 


rolling- moment coefficient, 
pitching- moment coefficient, 
yawing-moment coefficient, 


Rolling moment 
pV 2 Sc/2 

M 


pV 2 Sc/2 
Yawing moment 


pV 2 Sc/2 


side-force coefficient, Side force 

pV 2 s/2 


reference length 
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drag force, lift force, and pitching moment, respectively (see fig. 2) 
tether cable diameter (see fig. 2) 

component of distance from reference point to center of buoyancy (see fig. 2) 

component of distance from reference point to center of mass (see fig. 2) 

component of distance from reference point to center of mass of balloon 

structure (see fig. 2) 

pitching moment of inertia about balloon center of mass 

tether derivatives defined by equations (16) and (18) and equations (22) and (23) 

component of distance from reference point to center of buoyancy (see fig. 2) 

component of distance from reference point to center of mass (see fig. 2) 

component of distance from reference point to center of mass of balloon 

structure (see fig. 2) 

component of distance from reference point to attachment point of tether line 
(see fig. 2) 

mass of balloon structure and contained gas 

,m z a aerodynamic apparent mass in body-reference X-axis, Y-axis, and 
Z-axis directions, respectively 

number of degrees of freedom or quantity defined by equation (12a) 
perturbation roll rate 

quantity defined by equation (12b) 
perturbation pitch rate 
generalized coordinate 


quantity defined by equation (12c) 



s 

T 0> T 1 

t 

ttr 

u 

V 
w 

w s 

w c 

x,y,z 

XI, Zi 

a 

a t 

/3 

VI 
0 , 4 >,^ 

X 

Im(X) 

Re(X) 


perturbation yaw rate 
reference area 

tension of tether cable at lower and upper ends, respectively (see fig. 2) 
time 

component of distance from reference point to attachment point of tether line 
(see fig. 2) 

perturbation velocity along stability X-axis 
velocity 

structural weight of balloon (see fig. 2) 
weight per unit length of tether cable 

coordinate displacements in body-fixed stability-axis system with origin at 
center of mass 

coordinates of balloon center of mass (see fig. 2) 
perturbation angle of attack 
trim angle of attack 
angle of sideslip 

angles between the horizontal and tether cable, respectively (see fig. 2) 
angular perturbations about the X-, Y-, and Z-axis, respectively 
characteristic root 
frequency 
decay rate 
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X variable defined by equation (12d) 

p air density 

t variable defined by equation (12e) 

Subscript: 

R reference point 

Dots over variables indicate differentiation with respect to time. 

GENERAL DESCRIPTION OF PROGRAMS 

A linearized, stability-derivative type of analysis, such as the one considered here, 
generally results in a system of simultaneous, linear, ordinary, second-order differential 
equations with constant coefficients. In order to examine the stability of such a system, a 
solution of the form q^ = q^ e** for exponentially varying motion is assumed, where q^ 
is a generalized coordinate and q^ is a complex constant. The resulting stability deter- 
minant is of order n x n, where n is the number of degrees of freedom, and has ele- 
ments that are quadratic in X. Thus the determinant has 2n characteristic roots or 
eigenvalues. For solution of the stability determinant, the use of a standard eigenvalue 

i 

computer subroutine requires a transformation to a 2n x 2n determinant with X on the 
principal diagonal only (see description of subroutine QUADET in the appendix). The sign 
of the real part of X, Re(X), signifies growth or decay of a mode of motion of the system, 
with Re(X) > 0 indicating a growing motion (instability) . Additional insight about the 
■ modes of motion of the dynamic system can also be obtained by substituting each charac- 

teristic value into the stability determinant and solving for the associated modal ratios 
or eigenvector elements. 

i The six programs described herein calculate the characteristic roots and modal 

ratios for a range of discrete values of velocity for a fixed tether-line length and plot the 
results. These programs are: 

(1) Program STABLTY for longitudinal stability calculations 

(2) Program STBLTY2 for lateral stability calculations 

(3) Program VPLOT for plotting frequencies Re(X) and decay rates Im(x) versus 

wind velocity 

(4) Program RTLOCUS for plotting roots in root-locus form with wind velocity as a 

parameter 
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(5) Program CALBALM for plotting longitudinal modes of motion 

(6) Program CALBLM2 for plotting lateral modes of motion 

A block diagram illustrating the relationship of these programs and their use is given in 
figure 1. Although the programs can be operated in any consistent system of units, the 
constants and labels are generally given in the SI unit system. The pertinent cards are 
labeled SI UNITS in the comments field (cols. 73 to 80). 

The programs are written basically in FORTRAN language for the CDC 6000 series 
machines with the Langley Research Center version of the SCOPE 3.0 operating system 
and the RUN compiler. Some of the system library subroutines used by these programs 
are in the COMPASS language. A FORTRAN simulator for one of the more essential 
subroutines (MASCNT) is included in the appendix to facilitate use on other systems;. 

The programs were designed for use through a low -speed terminal system with the 
program stored on a data cell system at the central computer complex. Efficient usage 
of the low-speed terminal requires keeping the INPUT and OUTPUT files to minimum 
length. Thus, the results of the calculations are written onto disk files and routed after 
execution (fig. 1). In addition, many of the programs have their data for execution 
included in DATA statements and only the necessary case data or changes to the nominal 
case are read. Although written in a form suitable for construction of a single program 
with several levels of overlays, the programs have been left separate and are used 
sequentially with multiple executions and disk communication between programs. The 
zero-level overlay is used, however, to reduce the field length for loading. In this form 
the largest program (lateral version of STABLTY) loads and executes with a field length 
of 31000g. Typical execution time for STABLTY is about 45 seconds of central processor 
unit time for one case of 100 velocity increments. 

The four plotting programs described are written for a Cal Comp Electro-Mechanical 
Plotter, using the Langley Research Center (LRC) plotting system computer software. 
Relatively high-quality, hard-copy plots are produced by this system. The basic plotting 
subroutines are not given, but writeups are included in the appendix in order to facilitate 
program conversion for other systems. 

LONGITUDINAL STABILITY PROGRAM 

The longitudinal stability program has been adapted from an essentially general pro- 
gram for calculating the eigenvalues of a stability determinant with elements that are 
quadratic in the eigenvalue. The main program primarily calls working subroutines and 
handles a portion of the input and output. It contains one main loop for incrementing and 
varying the wind velocity. The coefficient matrices are generated by calling subroutine 
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Figure 1.- Block diagram of programs for calculating and plotting stability characteristics 

of a tethered balloon. 





INICOEF which contains the entry point VCOEF. Calculations that are independent of 
the wind velocity are performed by INICOEF, including the reading of the NAMELIST for 
input data. The velocity -dependent calculations are performed within the entry point 
VCOEF. For each value of velocity, the balloon equilibrium conditions such as tether - 
line angles, height, downstream distance (fig. 2), and aerodynamic trim conditions are 
calculated. The static aerodynamic coefficients Cp, C L , and C m are calculated by 
function subprograms that are to be written by the user to describe the aerodynamics of 
the balloon configuration to be analyzed. These functions are not restricted to linear 
functions and are written for a reference point (fig. 2). The program transfers the coef- 
ficients to the center of mass for use in the calculations, thereby facilitating parameter 
studies. 

The eigenvalues are sorted in the order of ascending frequences Im(x) within the 
main program. Since the present system has real coefficient matrices, complex roots or 
eigenvalues occur only as complex pairs. For each such pair, the root with positive fre- 
quency contains all the needed information. Thus the conjugate root with a negative; value 
of frequency is generally not printed on the files for output. 

A symbol cycling technique is used that has been found to be helpful to relate 
printed and plotted results. A single symbol (plus signs in the plotting programs herein) 
is used for plotting all points except for every tenth increment of velocity. For every 
tenth velocity increment, the results are plotted using the standard NASA symbol sequence 
of circle, square, etc., and the name of the symbol is printed on the printed results. The 
indexing parameters for the symbol cycling are set up in the main program and are 
written on tape 7 for later use in plotting, and the symbol name is written on tapes 8 and 
11 (blanks on tapes 8 and 11 if plus signs are to be used). This technique was taker, from 
an unpublished flutter program written by Robert N. Desmarais of the Langley Research 
Center. 


Longitudinal Equations of Motion 

The equations of longitudinal motion written about the center of mass are (see 
ref. 9): 

x -force 


x + 


gi(2C D ♦ C Du )x t |£(c Da - C L )z 


K xz 

m Y 


+ 



pV 2 sc D q! 

2m x 


9 = 0 


( 1 ) 
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Figure 2 .- Sketch of the balloon identifying pertinent dimensional relationships. 
(All arrows are pointing in the positive direction.) 


z -force 


pVS / 


2m z \ 


2 Ct + c L„')x + x + z + ^ — (Cl + Cd) z + z 
, Li l, u j m 2m 7 '' U J m„ 




Pitching moment 
pVSc 


2i„ + Cm u 


k ex „ pSc 2 


2C™ + Cm., ix + -T-- X - t-7T— Cm . Z - ^ Cm Z + Z 


pVSc 


41,, ra a 2I V a U 


pVSc 2 


/M si +k 00 pV 2 Sc 


+ o-^(c m . + c mq0+ ^-ifc m a s-0 


\ *y 


where the mass and buoyancy terms in equations (1) to (3) are given by 


m x = m'l’ + m x a cos 2 0 ! t + m z a sin 2 a; t 


- 9 9 pSc ^ 

m z = m T + m x a sin^o? t + m za cos *a t + C Li 


Msf — ~ ^cg) B + (^sr + *cg) W s] a t 


+ ( h cg - h br) B + ( h sr - h cg) w s cos a t 


The coefficients of equations (1) to (6) are evaluated for the steady equilibrium or 
trim conditions and thus the values of a^, Zj, Tq, yq> etc. (fig. 2) are required. The 
value of is calculated by Newton iteration of the following equation (in subroutine 
TRIM) which is implicit in a ^ and results from combining the lift, drag, and pitching - 
moment trim equations (ref. 9) : 


:i (c L ^ + B - w s) - M S2 - (h k2 C D + £C m )^ = 0 
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(8a) 


where hj^, h^, and Mgg are functions of of t given by 
h ki = (^tr “ *cg) cos a t + (hr - h cg) sin a t 

h k 2 = (hr ~ h cg )cos a t - (f tr - Z cg )sin a t (8b) 


and 


m s 2 = 


Pbr " z cgy B + Usr + ^cg) w s 

Pu v. ■ n . fu u \ 


cos 


h cg - h br ;B + (h sr - h cg jw s : sin oi t 


(9) 


and C D , Cl, and C m are also functions of a t . It might be noted that the increments 
ACp, AC l , and AC m , which are used in the program for parametric studies, are 
included in the trim calculation as constants but are not considered as functions of a^. 

The aerodynamic coefficients in equations (1) to (3) and equation (7) are referred to 
the center of mass. The coefficients are given in the program about a reference point 
(fig. 2) and are transferred to the center of mass by the following relations in subroutines 
TRIM and DERTRAN: 

% = C Lq R + 2 $ C La - 2 !(2C L + C Lu ) (10a) 


x t z t 

c m = c m,R “ ■=■ C L + "T C D 


c m u " Cm u,R ~ Cl u + C D U 


Cm a “ C m Q!j R - ~ ( c L a + c d) “ J (C L “ C D 


>ctj 


X t 

Cm a = Cm (i,R " J CL (i 


c m q = C m q) R " yv C L q ,R " 2Cm a) " 2 J^ C ra + Cm u) 


(10b) 

(10c) 

(lOd) 

(10e) 

UOf) 


11 



Calculation of the equilibrium tether conditions . - The equilibrium tether conditions 
are required for calculation of the tether derivatives as subsequently discussed. The 
equilibrium tether conditions are calculated as follows and are based on the analysis of 
reference 2. The values of Tj and yj (see fig. 2) are determined from the following 
equations, which are manipulations of the lift and drag trim equations: 


T 


1 " 



\ 


B - W s + C L 


pV 2 S 


1/2 


V 1 = 



pV 2 s\ 
2Ti ) 


(11a) 


(lib) 


The velocity V and the cable parameters l c , d c , Cj) c , and w c are specified. Let 


n 


P 

q 


pV 2 d r 
= C Dc 2 

(12a) 

w c 

2n 

(12b) 

= \jl +p 2 

(12c) 


From the analysis of the tether, a variable X is also defined as 



T (r) 

sin 2 y + 2p cos y 


dy 


( 1 2d) 


where 


Ar) - (** ? - 005 y 

\q - p + cos y 


(12e) 


y is the cable angle, and y u is the value of y associated with the upper limit of the 
integral in equation (12d). Since y^ is known from equation (lib), Xj = x(y^) is cal- 
culated (subroutine TETHER) from equation (12d), using numerical integration (sub- 
routine ROMBERG), and = r(yj) is calculated from equation (12e). The related 
value of X 0 is given by (ref. 2): 
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( 13 ) 


where Xq = X(yq). Thus, the left-hand side of equation (12d) is known from equation (13) 
and can be evaluated for y u = yQ. This is done in subroutine TETHER using Newton 
iteration (subroutine NEWINT) and numerical integration (subroutine ROMBERG). The 
values of Tq and Zj are given by (ref. 2): 


T 0 = 


T 1 T 0 

n 


(14a) 


z l = 


Ti - Tq 

w c 


with Tq = T (yoj- The value of Xj is given by (ref. 2): 


= Ii C 1 

11 T 1 *Vq ^sin^y + 2p cos yj 


t(v) 


1 


COS y dy 


(14b) 


(15) 


which is also integrated numerically using subroutine ROMBERG (in subroutine TETHER). 

Calculation of the tether derivatives . - The tether derivatives or spring constants 
^xx’ k xz> k zx> anc * k zz required for equations (1) to (3) are also calculated using the 
analysis of reference 2. These derivatives are expressed in terms of the equilibrium 
tether conditions as follows: 


k xx = cos y \ ( sin y\ - sin r 0 ) + n(zi - sin y Q ) sin 3 yi 


k - — 
K xz 6 


k - - 
K zx - 5 


Tj cos y j (cos yQ - cos y^ + n(Zj cos yQ - Xj J sin^yj 
Tj sin yj(sin - sin y Q ) 


w c + n sin^j cos y^Zj. - Zj sin y Q ) 


k zz = |[ T l sin n (cos y 0 - cos y^ 

- (w c + n sin 2 yj cos y^Zj cos y Q - Xj) 


(16a) 

(16b) 


(16c) 


(16d) 
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where 


5 = Xj (sin - sin y Q ) + z^cos y Q - cos yj) - ^ sinfyj - y Q j (17) 

The tether derivatives related to pitch angle 6 and referred to the center of mass are 


^6x = k k2 k xx ■ hk]^zx 

(18a) 

k Qz~ ^k 2 ^xz “ k k ]^zz 

(18b) 

= ^k2^xx ” k kj k xz 

(18c) 

k z 6~ k k 2 k zx “ ^kj^zz 

(18d) 

k 6>0 = k 00 D +k 0^ Tl 

(18e) 

k 00 D = ^ 1 k 2 k xx " k k 2 h kj l ' v k xz + k zx) + h kj k zz 

(18f) 

k 6B T = h k 2 ( T l sin y\) + h kj ( T 1 cos Vl) 

(18g) 


where h^ and h^ are defined by equations (8). 

1 2 

Definition of Program Variables 

Some of the principal FORTRAN variable names are given and defined in the fol- 
lowing sections. Where there are corresponding mathematical symbols, these symbols 
are also listed. 

Variables in the main program . - The variables used in the main program are given 
as follows: 
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FORTRAN 
variable name 

A, B, C 

CNOA, CNOEI 

CROT, CRTSQ 

DELV 

EICOEF 

EIDET 

ID 

IK2 

NEGR 

NMP : 

NT WO 
NVEL 
ROOTI 


Mathematical 

symbol Definition 


n x n coefficient matrices of the equations of motion, 
i.e., mass, rate, and displacement matrices, 
respectively; rows 1, 2, and 3 contain the coeffi- 
cients of the x-, z-, and ^-equations, respectively 

Turing's condition number of the matrices A and 
EIDET, respectively, defined in terms of the norm 
as, for example: CNOA = |'A|| *j|A -1 ||/n, 
n = Order of A 

a complex eigenvalue and its square, respectively 
AV increment in velocity 

complex coefficient array for eigenvector calculations; 
here, 2x3 and normalized by 6 in degrees 

stability or eigenvalue determinant in expanded form, 
2n x 2n 

ten-word alphanumeric array containing case identifi- 
cation card and date and time for processing of case 

index for cycling symbols 

number of complex eigenvalues with negative fre- 
quencies plus one 

number of modes processed; here set to 3 

2 *NMP; order of linear eigenvalue determinant 

number of velocity increments 

Im(x) array containing imaginary portion of eigenvalues 

(modal frequencies) for a given velocity 
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FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


ROOTR 

Re(x) 

array containing real portion of eigenvalues for a given 
velocity in the same sequence as ROOTI 

SYMBOL 


eleven-word Hollerith array containing names of 
plotting symbols for symbol cycling 

VEL 

V 

velocity 

VMIN 


minimum velocity 


Variables in subroutine INICOEF .- Many of the variables used in INICOEF are 
listed in the NAMELIST and are defined in the section entitled "Input Required for Longi- 
tudinal Stability Program." Also, some have the same usage as in the main program. 
Other principal variables are given as follows: 


FORTRAN 

Mathematical 


variable name 

symbol 

Definition 

ALPHA 

“t 

trim angle of attack in radians 

ALPHAD 

a t 

trim angle of attack in degrees 

CD 

C D 

drag coefficient at trim 

CDA 

c Dq, 

dC'ft/da 

CD RAG 

n 

cable drag per unit length 

CL 

C L 

lift coefficient for trim 

CLA 

C Lq; 

lift -curve slope 

CLQ 

% 

lift pitching-rate derivative about center of 
mass, 9 Cl/ 8 |^ 

CM 

Cm 

pitching-moment coefficient about center of mas; 
at trim 
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FORTRAN 
variable name 

Mathematical 

symbol 

Definition 

CMA 


pitching-moment derivative about center of mass, 
aCm/aa 

CMAD 

o 

3 

e- 

moment a -rate stability derivative about center of 



mass, 3C 

CMQ 

Cm q 

moment pitching-rate stability derivative about center 
of mass, 9C m 

GAMO 

^0 

cable angle at ground measured from horizontal 

GAM1 

*1 

cable angle at tether point on bridle measured from 
horizontal 

Q 


dynamic pressure, pV^j 2 

SKTT 

k ee 

total tether pitch spring in body -axis system for pitch 
about center of mass 

SKTTD 

kfle D 

portion of SKTT due to displacement of tether point 
for pitch about center of mass 

SKTTT 

k ee T 

portion of SKTT due to rotation of balloon relative to 
steady tension vector at tether point 

SKTZ 

k 0z 

tether pitching moment due to z -displacement of 
balloon 

SKTX 

k 0X 

tether pitching moment due to x -displacement of 
balloon 

SKXT 

•See 

tether x -force due to pitching displacement 

SKXX 

‘Sex 

tether x -spring constant at tether point 

SKXZ 

kxz 

tether x -force due to z -displacement 
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FORTRAN 
variable name 

Mathematical 

symbol 

Definition 

SKZT 

k z6 

tether z -force due to pitching displacement 

SKZX 

^zx 

tether z-force due to x-displacement 

SKZZ 

^zz 

tether z -spring constant at tether point 

TO 

T 0 

tether cable tension at ground (see fig. 2) 

T1 

T 1 

tether cable tension at bridle (see fig. 2) 

XOC 

x t /c 

x -distance in stability -axis system from reference 
point to center of mass 

XI 

X 1 

balloon horizontal displacement, positive in direction 
of wind 

y 

zoc 

z t/c 

z -distance in stability -axis system from reference 
point to center of mass 

Z1 

Z 1 

balloon altitude 

UNCRT 


complex eigenvalue obtained by factoring diagonal 
quadratic element of stability determinant 


It may also be noted that the tether subroutines called by VCOEF are written with 
FORTRAN variable names closely paralleling the mathematical notation of reference 2. 

Input Required for Longitudinal Stability Program 

The user-written function subroutines FCD, FCL, and FCMR describe the longi- 
tudinal static aerodynamic coefficients about the reference point for the configuration. In 
the present usage, the curve fits (ref. 8) to the measured coefficients as functions of angle 
of attack are used. The static coefficients Cp, C L , and C m ^ are associated with the 
function variable names. Angle of attack is passed as a formal parameter and the deriva- 
tives CDq,, ^h a > an d C mQ| are returned as formal parameters of the functions FCD, 
FCL, and FCMR, respectively. These functions must be replaced with functions appro- 
priate for the configuration to be analyzed and are thus considered part of the input data. 
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For each case, one card of 80 characters of case identification is read in an 
8A10 format, and a NAMELIST called LONGDTA is read. The FORTRAN variable 
names, their equivalent mathematical symbols, and their definitions are given as follows 
in the order the variables are listed in the NAMELIST, which is also the order for 
printing. All variables are preset in the program with DATA statements to the values 
for the reference configuration of the LRC balloon, and only changes need to be read with 
the NAMELIST. Thus, the program can be executed using no changes in the parameters 
in the NAMELIST. 

FORTRAN Mathematical 

variable name symbol Definition 


CDINS 

^Dins 

constant increment of Cp (allows for Cp of 


instrument package of balloon) 

CLAD 

C L < j 

lift a -rate stability derivative, 3 C l/ 3 ^ 

CLQR 

C Lq,R 

lift pitching -rate stability derivative about reference 


point, 3C L/ /a|| 

CMADR 

Cm (i,R 

moment a -rate stability derivative about reference 
point, aC mjR ^>H 

CMQR 

Cm q,R 

moment pitching-rate stability derivative about refer- 


ence point, 3C mjR ya|l 

DEL CD 

ACd "1 


DEL CD A 

AC Do- 


DELCL 

ac l 

, constant increments in coefficients about center of 

mass which are used for parametric studies 

DELCLA 

AC L a 

DELCM 

AC m 


DELCMA 

AC m a> 

1 
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FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


CDU 

C D U 

rate of change of drag coefficient with velocity. 

9C D/ a V 

CLU 

C L U 

rate of change of lift coefficient with velocity, 
aC L /»§ 

CMUR 

Cm u,R 

rate of chage of moment about reference point with 
velocity, aC m>R /a^ 

S 

S 

reference area, (Volume of balloon)*^ 

CBAR 

c 

reference length, balloon body length used here 

YYOI 

h 

pitching inertia about balloon center of mass (including 
aerodynamic apparent inertia) 

TMASS 

m<r 

mass of balloon structure and contained gas 

AXMASS 

m x,a 

aerodynamic apparent mass in body -reference X-axis 
direction, o? t = 0 

AZMASS 

m z,a 

aerodynamic apparent mass in body -reference Z-axis 
direction, = 0 

WTS 

w s 

structural weight of balloon 

BUOY 

B 

net buoyancy force 

BHR 

^br 

component of distance from reference point to center 
of buoyancy, positive for center of buoyancy below 
reference point (see fig. 2) 

BLR 

z br 

component of distance from reference point to center 
of buoyancy, positive for center of buoyancy forward 
of reference point (see fig. 2) 



FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


SHR 

SLR 

CGH 

CGL 

TLR 

TTR 

CLC 

CDIAM 

CDC 

WC 

RHO 

VMIN 


h sr component of distance from reference point to center 

of mass of balloon structure, positive for center of 
mass below reference point (see fig. 2) 

Z sr component of distance from reference point to center 

of mass of balloon structure, positive for center 
of mass aft of reference point (see fig. 2) 

h _ component of distance from reference point to center 

of mass, positive for center of mass below refer- 
ence point (see fig. 2) 

Z cg component of distance from reference point to center 

of mass, positive for center of mass forward of 
reference point (see fig. 2) 

Z^ r component of distance from reference point to attach- 

ment point of tether line, positive for attachment 
point forward of reference point (see fig. 2) 

tf. r component of distance from reference point to attach- 

ment point of tether line, positive for attachment 
point below reference point (see fig. 2) 

l c length of tether cable 

d c diameter of tether cable 

Cp) c drag coefficient of tether cable based on diameter, 

i.e., drag of cable per unit length is C£ >c d c pV'2 / /2 

w c weight per unit length of tether cable 

p ambient air density 

V m tn minimum wind velocity 
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FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


DELV AV wind-velocity increment 

NVEL number of velocity calculations 

Limitations and Diagnostic Messages 

The following comments are given to indicate some of the factors that are not 
treated in the program and to indicate some potential troublesome factors in program 
operation: 

(1) The balloon must lift the tether cable off the ground. No diagnostic messages 
are given, but the listing of tether conditions will indicate zero cable angle GAMO as the 
constraint of 0 ^ GAMO ^ tt/ 2 is applied in the program. 

(2) The balloon must be able to trim. If the trim angle has not converged to a 
tolerance of ERR (10'®) in ITCMAX (100) Newton iterations of the trim equation, the 
message 

ITERATION FOR TRIM DID NOT CONVERGE IN ITERATIONS, 

ALPHA = , TLPHA = . 

is written on tape 11. The value of TLPHA is used for subsequent calculations. 

(3) The z -component of the cable tension acting on the bridle must be directed down 
for trim. If this condition is not satisfied, GAM1 is erroneous. However, the balloon 
would normally not be lifting the tether cable off the ground when this limitation would 
apply. 

(4) The bridle is treated as rigid and no consideration is given to the possibility 
that the bridle lines may go slack. 

(5) Cable drag and weight cannot be zero or negative, as these conditions lead to 
overflows or to a negative number to a real power, both fatal errors. This condition also 
indicates that the zero wind velocity limit cannot be reached. 

(6) The balloon drag must be positive. If there is a tendency for trim angle to 
diverge with velocity, care must be exercised in fitting C D versus a such that Cp 
is always positive. 

(7) The minimum velocity that can be treated is about 0.5 m/sec. Loss of signifi- 
cant figures in some of the tether springs and tether conditions may occur at very low 
velocities. For example, the vertical spring k zz — °° as V — 0 such that the eigen- 
value problem becomes poorly conditioned. 
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(8) The conditioning of the eigenvalue matrix EIDET is checked. If the Turing's 
condition number of EIDET exceeds 10®, indicating an estimated loss of 6 or more of 
14 significant figures, the diagnostic message 

CONDITION NUMBER OF EIGENVALUE MATRIX = . 

is written on tape 11 and calculations proceed. 

(9) The conditioning of the mass matrix A is checked. The mass matrix here is 
normally well conditioned. If Turing's condition number of A exceeds 10^, the diag- 
nostic message 

CONDITION NUMBER OF A -MATRIX = . 

is written on tape 11 and calculations proceed. 

(10) The density p is input and is considered as a constant both for the cable and 
for the balloon; thus, the altitude range may be restricted. 

(11) The program transfers the stability derivatives from the reference point to the 
center of mass. However, the center of mass must be computed for input consistent with 
the structural weight center of mass, the included gas of the balloon, and the aerodynamic 
apparent masses. The aerodynamic apparent inertia must also be transferred external 
to this program for input for shifts in center of mass. 

(12) It may be noted that the computer running time is closely related to the error 
tolerances EPS in the iteration and integration procedures used in the tether routines. 
Here, EPS is generally set to 10 “®. 

Listing of Input Data Cards for Sample Case 

******************************* COLUMN NUMBER ********************************** 

00000000011111111112222222222333333333344444444445555555555666666666677777777778 

12345678901234567890123456789012345678901234567890123456789012345678901234567890 

LONGITUDINAL STABILITY OF TETHERED BALLOON - LRC BALLOON-REFERENCE CONFIGURATION 
$L0NGDT A VMIN = 1., NVEL-51, DELV»1.$ 
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Listing of Longitudinal Stability Program 


0VERLAY!STABLTY,0,0> 

PROGRAM STA6LTY ( INPUT = 1 , OUT PUT = 1 , TAPE5= I NPUT , T APE 7, TAPE8=1, 

♦ TAPE11«1,TAPE30=1, TAPE31 =1 ,T APE32= 1, TAPE33 = 1) 

£♦****#** 4* ****** ******* ******* ****************************************** 


c* * 

C* PROGRAM A2864.1 - LONGITUDINAL STABILITY OF TETHERED BALLOON * 

c* * 

C* PROGRAM READS IDENTIFICATION CARD AND NAMELIST FROM INPUT FILE, AND * 
C* WRITES ONLY THE ID ARRAY FDR EACH CASE ON THE OUTPUT FILE * 

C* ALL FILES ARE BCD AND ARE SET TO MINIMUM BUFFER SIZE, EXCEPT TAPE7 * 
C* WHICH IS BINARY AND USES STANDARD BUFFER SIZE * 

C* FILE ASSIGNMENTS ARE - TAPE7 = PLOTTING PROGRAM INPUT, T APE8 = EI GEN- * 
C* VECTORS* TAP El 1= E IGE NVALUE S , TAP E30= AERODYNAMIC COEFFICIENTS, * 

C* TAPE31=TETHER SPRINGS, T AP E32=TETHER CONDITIONS, AND TAPE33= * 

C* UNCOUPLED RUOTS * 

C* * 


C *************************************************************** ********* 

COM PC N/ 1 ROW/ 1 RO W ( 3 00 1 / I C OL/ IC OL l 300 ) 

DIMENSION A(3,3),B(3,3) ,C(3, 31* SYMBOL (111 ,10(10) 

01 MENS ION E IDET (6,6 I , SAVE I 6, 7 ),R00TR(6) .ROOT I ( 6), INDEX! 61 

♦ , I RUN (6) ,P 16 I, I P I V <3 > ,INOX( 3,2 I 
COMPLEX EIC0EF(3,3) ,CROT, CRTSO.COET 

DATA SYMBOL/ L10HCIRCLE SQUARE DIAMOND TRIANGLE RT TRNGL 
♦QUADRANT DUG HOUSE FAN LNG DMND HOUSE / 

DATA RADEG, DELV.NVEL.VMIN/, 017453292519943296, .5,104, ,5/ SI UNITS 

108 FORMAT(1H1////X10A10/// I 
107 FOR MATI12X8G13.5) 

106 FORMAT!/* VELOC ITY=*G13.5, 2XA10) 

105 FORMAT! 50X* E I GEN VECTOR S*/ /14X*C0MPLEX ROOT-RE AL , I MAG*4X 

+ *X/THETA,M/OEG-REAL, IMAG*3X*Z/THETA,M/0EG-REAL,IMAG*6X SI UNITS 

* *TI-ETA,DEG-REAL,IMAG*/) 

104 FORMAT! 8X,A10,6G16.6) 

103 FOR, MAT !/2X7Glt).6l 

102 FORMAT!/* CONDITION NJMEER CF E ILENVALUE H ATR IX=*E10 .2/1 
101 FORMA T ( /* C0ND1TIUN NUMBER OF A-M ATR 1 X=*E 1 0 .2 / 1 

100 FORMAT!//* VELOCITY, IREAURCOT (1) ), 1 = 1, NPOS >*/* SYMBOL ,( IMAG! ROOT! 

+ 11) , I =1 , NPOS) */) 

Al 1= 8H I X 1 DAI 0 1 $ A1Q= 6h ( 8A10 ) 

INITIALIZATION SECTION - R E AO IDENTIFICATION CARO, CALL DAYTIM FOR 
DATE AND TIME, AND WRITE ID ARRAY UN BCD TAPES 0,11,30,31,32,33, 

AND BINARY TAPE 7 WITH RECOUT. 00 NON-VELOCI TY-OEPENDENT 
CALCULATIONS WITH A CALL TO INICOEF 
SEE SUBROUTINE WRITEUP FOR DESCRIPTION OF RECOUT 

NMP=3 $ NTWC=NMP+NMP t NPL1=NTW0+1 
REWIND 30 i REWIND 31 i PEWINO 32 $ REWINO 33 
REWIND 7 $ REWIND 8 1 REWIND II 

1 READ A10, ! I D( II ,1 = 1 ,8) t I F ( EOF , 5 » 999 , 2 

2 CALL OAYT I M ! I D ( 9 ) ) $ PRINT All, ID $ W R I TE ! 1 1 , 1 08 I ID 
WRITE! 30,1081 ID $ WR I TE < 3 1 , 10 8 ) I D t WRITE ( 32, 108MD 
WRITE! 8,108 ) ID $ WRITE!8,105I $ WR1 TE ( 33, 108 II D 
CALL RECOUT! 7,2,0, ID. 1 , 10,11 

CALL INICOEF (A, B,C,NMP»VEL*VMIN,DELV, NVELI t W R I TE! 1 1 , 1 00 I 
CALL RECOUT! 7, 1,0, NVELI 

90— LOOP IS VELOCITY VARIATION LOOP 

DO 90 I V= 1 , NVEL t VEL = VMI N+( I V-l. )*DELV 
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C SET UP COEFFICIENT MATRICES FOR QUADRATIC STABILITY DETERMINANT 
C WITH CALL TO ENTRY VCOEF OF SUBROUTINE INICOc'F 
C 

CALL VCOEF( A, B.CtNMP, VEL , VM I N , DEL V, NVEL ) 

EXPAND QUADRATIC N X N STABILITY DETERMINANT INTO 2N X 2N STANDARD 
EIGENVALUE FORM AND CHECK CONDITIONING OF MASS MATRIX A 

CALL QUADET ( A , B , C, 3, 6, NMP , 1 0 , E I DE T , CNUA ) 

IF( CNOA.GT. 1 ,E + 4 ) WR [ TE ( 11, 101ICN0A 

EIGENVALUES FOR 2N SYSTEM AND CFECK CONDITIONING OF 2N X 2N MATRIX 
WITH CALL TO MATRIX FOR INVERSE AND TURING CONDITION NUMBER 

CALL REIGIEIDET, NTWO,NTWO.O, ROOTR, ROOTI ,EIVEC, 6 , I ND E X , 1 RUN , P , 

♦ NPL1 , SAVE ) 

CALL MATRIX ( 10, NTWO ,NT WO , 0, EIDET * 6 ,OETE I , KB , C NOE I ) 

IFICNOEI.GT.l .E+6)WR1TE(11,102)CN0EI 

RCCT SORTING - SORT COMPLEX ROOTS IN ORDER OF INCREASING MAGNITUDE OF 
FREQUENCY AND DETERMINE THE NUMBER OF COMPLEX ROOTS WITH POSITIVE 
VALUE OF FREQUENCY I IMAGINARY PART) 

NEGR=1 $ DO 50 NRT=l,NTWO $ N I = NT WO-NRT i DO 48 J=1.NI 
IF! RCOTI ( J) -ROOT I! J ♦ ! > ) 48 , 46 , 46 
46 TRl=ROOTI(J) $ TRR=ROUTRIJ) * R OUT I I J ) = ROOT I l J +1 ) 

RCOTRI J)=ROOTR( J+l) ft ROOT I ( J + l ) = TR I $ ROOTR! J +1 ) =T RR 
48 CONTINUE 

50 CONTINUE t 00 52 NR=1,NTW0 

IF! ROOT 1 1 NR ) »LT »— l. E-l 2 1 NEGR=NEGR*1 
52 CONTINUE 

WRITE FCOTS CN TAPE 11 

IK1 = I V/10 t I K2= 1 1 $ IF ( I V . EQ. 10* IK1 ) I K2= 1*M0D ( I K l - 1 » 10) 

WRI TE(11,103)VEL,( ROOTR !N) »N=NEGR*NTwO) 

WRITE! 11, 104) SYMBOL (IK2) . I ROOT I!N) , N=NEGR,NTwO ) 

WRITE RESULTS CN BINARY TAPE 7 FOR INPUT TO PLOTTING PROGRAMS 

CALL RECOUT <7,1,0. VEL, IK2 ,NEGR,NTWO) 

CALL RECOUT (7,2,0, R0QTR»NEGR,NTW0,1 ) 

CALL RECOUT (7,2, 0, ROOT 1 ,NEGR,NTW0,1) 

SETUP COEFFICIENT MATRICES FOR EIGENVECTOR (MODAL RATIOS) BY 
DIVIDING BY THETA ANO CALLING CXINV - RESULTS ON TAPES 

WRI TE ( 8, 106 ) VEL, SYMBOL ( I K2 1 

DO 70 NE=NE GR , NTWQ t CROT =CMPLX ( R OOTR I NE ) , ROOT I (NE) I 
CRTSC=CROT*CROT $ 00 60 IC=1,2 $ 00 60 IR=1,3 
60 EICCEF(1C,IR)=A(IC,IR)*CRTSQ+B(IC,IR) *CROT + C(IC,IR) 

DO 64 1=1,2 

64 EICOEF (I ,3) =— R ACEG* E ICOEF I 1,3) 

CALL CXINV( EIC0EF,2,EIC0EFC 1, 3I,1,CDET, IPIV, INDX, 3, ISC) 
EIC0EF(3,3)=(1.,0. ) 

TO WRITE! 8, 107) CROT, ( EICOEF ( I, 3), I =1,3) 

90 CONTINUE $ GO TO 1 

999 ENDFICE 7 $ REWIND 7 $ ENDFILE 8 $ REWIND 6 t REWIND 11 
REWIND 30 t REWIND 31 $ REWIND 32 t REWIND 33 
END PROGRAM STABLTY 
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SUBROUTINE I N ICOEF l A, B , C * NMAX , VE L , VMI N , DEL V, NV El) 

SUBROUTINE CALCUUTES COEFFICIENT MATRICES FOR QUADRATIC STABILITY 
OETERN INANT 

EQUIVALENCE I EQURTI 1 I tUNCRT I 1 ) ) 

DIMENSION A(NMAXrl) ,B(NMAX,1 ),C INMAX* 1),EQURT( I) 

COMPLEX UNCRT(6),CRAD,CSQRT 

INPUT PARAMETERS ARE READ FROM THE INPUT FILE WITH A NAMELIST READ 
OF THE NAMELIST LCNGDTA ANO ARE WRITTEN ON TAPE 11 WITH A NAMELIST 
WRITE STATEMENT 

NAMELIST/LONGOTA/CDINS,CLAD,CLQR»CMADR t CMQR, DELCDtOELCDAf DELCL, 

+ DELCLA,DELCM,DELCMA«CDU,CLU,CMUR,S,CBAR,YYOI , TMASS , AXHASS , 

+ AZMASS.WTS .BUOY.BHR ,B LR . SHP , SLR » CGH, CGL, TL R ,T T R, CLC, CDIAM,COC, WC, 
+ RHC»VMIN«D6LV»NVEL 

COMMON/LCNGDLC/CDINS»DELCDt DELCLiDELCM 

PARAMETERS FOR LRC BALLOON - REFERENCE CONFIGURATION - IN SI UNITS 

OAT A COINS* DELCD,DELCDA,DELCL,DELCLA,OELCM,D6LCMA,CDU,CLU,CMUR/ 

♦ .010, 9*0./ 

DATA OEGRAD/ 57.2957 795L30 82 3/ 

DATA CMADR,CMQR,CLAO,CLQR/-.O26,-.109, .089, .685/ 


DATA 

S »CBAR,YYOI/7 ♦ 04 , 7 *6 4 • 171./ 

!> 


UNI TS 

DATA 

TMASS» AXMASS tAZMASStWT St BUOY/1 4.2 t 5. lit 23. 9, 108* ,190./ 

S 


UNITS 

DATA 

BHR,BLR,SLR,TLR,TTR/Q. ,2. 15, -.66 ,3.44,3.82/ 

s 


UNITS 

DATA 

SHR, CGH, CGL/. 3 6, .109,1. 10/ 

Si 


UNITS 

DATA 

CLC,CDIAM # CDCtHC/61.t .0141,1.17, .343/ 

s 


UNI TS 

DATA 

RHO/ 1.225/ 

s 


UNITS 


VELOCITY INDEPENDENT CALCULATIONS 

WR I TE ( 30, 101 ) t WRITE (31 ,102) t WRITE(32,103I * WRI T E ( 33, IOA ) 
READ LONGDTA S WR I T E ( 1 1 . L ONGDT A ) 

SL=5LR*CGL S SH=SHR-CGH $ BL=BLR-CGL 

TL=TLR-CGL $ TT=TTR-CGH t BH=CGH— 8HR 

CBAR2= ■ 5*CBAR t Rl=l./YYOI S ROSCI=RHO*S*CBAR2*RI 

OELMZA=.5*CBAR2*S*RHO*CLAD 

4(1 ,2)=A(1,3)«A(2, 1)=A(2,3)=A(3, 1)=0. 

All,l)=A(2,2)=A(3,3)=l. * RETURN 

ENTRY POINT VCOEF FOR VELOC I TY-DEPENOENT CALCULATIONS 

ENTRY VCOEF 
Q=.5*RHO*VEL*VEL 

TRIM ANGLE OF ATTACK AND AERODYNAMIC COEFFICIENTS ABOUT THE CENTER 
OF MASS 

CALL TRIM(S,CBAR,WTS,BUOY,BL,BH,SL, SH , T L , TT , CGH, CGL , Q , 

+ CL ,CM,CD,CLA,CMA,CDA, ALPHA , XOC , ZOC , S INA,COSA) 

ALPHAD=DEGR AD* ALPHA 

CDA = CCA+DELCOA t CL A=CLA+DELCL4 $ C MA=CMA+OELCMA 
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TRANSFER DYNAMIC STABILITY DERIVATIVES FROM REFERENCE POINT ( MOMENT 
CENTER I TO CENTER OF MASS AND WRITE AERODYNAMIC COEFFICIENTS ON 
TAPE 30 

CALL DERTRN ( XCC • ZOC ,C0 « CDU , CL ,C LA ,CLU ,CLAD, CLQR.CM. CM A, CMADR, CMQR, 
+ CMUR ,CLQ,CMAD, CMQ, CMU I 

WRITE (30, 100) VEL,ALPHAD,CD,CL,CH, CDA, CLA, CMA,CLQ, CM AD, CMQ 


CALCULATE EQUILIBRIUM CABLE CONDITIONS AND WRITE RESULTS ON TAPE 32 

DRAG=CD*Q*S S BLIFT=CL*0*S £ CORAG a CDC*CDI AM*Q 
T 1=SC RT( ORAG*DR AG4-C BL IFT-WTS4BU0Y)**2 ) 

COSG1=ORAG/Tl $ GAM 1 = AC OS I C0SG1 ) I SING1=SIN(GAM1 ) 

CALL TETHER < CDR AG, WC,CLC,T1,GAM1, TO, G AMO, XI, Z1 ) 

G AM ID > DEGRAD* GA Ml $ GAMOD=OEGRAO*GAMO 
COS GO-COS (GAMO) £ S INGO=S INI GAMO) 

WRITE 132,100 )VEL. XI ,Zl .GAMOO ,T0, GAM 10 , T 1 , CDRAG 

CALCULATE CABLE SPRINGS FROM DERIVATIVES OF NEUMARK AND TRANSFER TO 
STABILITY AXES - WRITE RESULTS ON TAPE 31 

SNG2=SING1*SI NG1 $ SNG3=S ING1*SNG2 £ TSG1=T1*S ING1 $ TCG1=T1*C0SG1 
R DEL* 1./ I XI* I SING 1-SI NGO) -Z 1* ( C0SG1-C0SG0 )-CLC *SI N< GAM1-GAH0I ) 
SKXX-RDEL*(TCG1*ISING1-SING0)+CDRAG*SNG3*(Z1-CLC*SING0) I 
SKXZ=RDEL*(TCG1*IC0SG0-C0SG1 )-CDRAG*SNG3*<Xl-CLC*C0SG0> ) 
SKZX»RDEL*ITSG1*(SING1-S INGOJ-I WC+CDRAG*SNG2*C0SG1) *( Z1-CLC*S INGO) 
+ ) * SKZZ=RDEL*(TSGl*I C0SG0-C0SG1 ) * ( WC+ CDRAG* S NG2*C QSG1 > * < XI- 
4 CLC*COSGO) ) 

HK1=TL*C0SA+TT*SINA * HK2*TT*C0SA-TL*SINA 
SKX T = HK2*SKXX— HK1 *SKXZ £ SKTX=HK2*SKXX-HK1*SKZX 
SKZT*HK2*SKZX-HK1*SKZZ $ SKTZ=HK2*SKXZ-HK1*SKZZ 
SKTT0 = HK2*C HK2*SKXX-HK1* ( SKXZ+SK.ZX) )+HKl *HKl*SKZZ 
SKTTT=HK2*TSG1+HK1*TCG1 $ SKT T=SKTTD* SKTTT 

WRI TE ( 31, 100 IVEL.SKXX. SKXZ , SKXT , SKZX, SKZZ , SKZT , SKTX , SKTZ , SKTTD, 

♦ SKTTT 

CALCULATE WE IGHT-BOUYANCY MOMENT TERM AND MASS TERMS INCLUDING 
APPARENT MASS ROTATION TO STABILITY AXES 

SM1= ( BL*BU0Y4SL*WTS )*S INA4( BH*BU0Y4SH*HTS )*COS A 
AMZ-AZMASS*CQSA*COS A+AXMA SS*S I NA*SI NA 
AMX»AXMASS*COSA*COSA4AZMASS*S INA*SINA 

RMX=1./(TMASS4AMX) $ RMZ=1./ITMASS4AMZ40ELMZA) * ROVSCI a VEL*ROSCI 
ROVSMX».5*RHO*VEL*S*RMX £ ROVSMZ= ,5*RH0*VEL*S*RMZ 

CALCULATE COEFFICIENT MATRICES A , B, AND C 

AC 3,2)=-CBAR*RCSCI*CMAD 

BCl, 1 )=ROVSMX*C 2.*CD4C0UI £ B ( 1 , 2 >= ROVSMX* ( CDA-CL ) $ B(l,3)=0. 
B(2,1)=R0VSMZ*C 2.*CL4CLU) $ B12,2) = RQVSMZ*(CLA +CD ) 

B I 2 » 3 I =CBAR2*R0VSMZ*(CL AD + CLQ ) £ B( 3, 1 ) =-RQVSC I *( 2. *CM4CMU ) 

B( 3,2>=-R0VSCI*CMA £ B(3,3)=-CBAR2*ROVSCI*(CMAD+CMQ) 

C 1 1 , 1 ) =SKXX*RMX * CC1,2)=SKXZ*RMX $ C ( 1 , 3 I = $KXT*R MX 4 VEL *ROVSMX*C DA 
C ( 2 , 1 ) =5KZX*RMZ £ C t 2 , 2 ) =SKZZ*RMZ £ C ( 2 , 3 l=SKZT*RMZ4VEL*R0VSMZ*CLA 
C ( 3 , 1 )=SKTX*R I £ C ( 3, 2 ) =SKTZ*R I 
C ( 3 , 3 )=R I *( SM14SKTT)-V£L*R0VSCI*CMA 
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CALCULATE UNCOUPLED ROOTS BY FACTORING DIAGONAL QUADRATIC TERMS AN D 
WRITE RESULTS CN TAPE 33 

00 I M=l» 3 * CRAD=.25*B<M,M)*B!M,M)-C(M,M) S CRAD=C SORT ( CRAO I 
M2= 2*M ( M1=M2— 1 $ UNCRT C Ml ) =- ,5*B( M, M | *CRAD 
1 UNCPT!M2)=-.5*8(M,M)-CRA0 

WRITE I 33, 10 5) VEL,(EQURT! I 1,1-1,11,2), IEQURTI I ) ,1 = 2, 12,2) t RETURN 

100 FORMAT (2X11G11.4) 

101 FORMAT I / 2 OX* AERODYNAMIC COEFFICIENTS*/* VEL0CITY*5X*ALPHAD*9X*CD* 
♦ 9X*CL*9X*CM*8X*CDA*8X*CL A*8X*CMA*7X*CLQ*8X*CM AD* 8X *CMQ* ) 


102 F0RMAT(/20X*TETHER SPRINGS*/* VELOC IT Y*7X*SKXX*7X*SK XZ*7X*SKXT* 7X 

♦ *SKZ X*7X*SKZZ*7X*SKZT *7X*SKTX* 7 X*SKTZ*5X*SKTT ,D*4X*SKTT,T1*) 

103 FOR NAT ( /2 OX*T ETHER CONDITIONS*/* VE LOC I TY*9X*X 1*9X* Z 1*7 X*GAM0*9 X 

♦ *T0*7X*GAM1*9X*T1*3X*CAB DRAG*) 

104 FORMAT I /20X* UNCOUPLED R00TS*/7X*VEL*8X*RLX1*8X*RLX2*8X*RLZ1*8X 
+ *RLZ2*8X*RLT1*8X*RLT2*/18X*IMX1*8X*IMX2*8X*IMZ1*8X*IMZ2*8X 

♦ *1 MT1*0X*IMT2* ) 

105 FORMAT I/2X7G12.4/14X6G12.4) 

END SUBROUTINE INICOEF 


SUBROUTINE TRIM I S , C BAR , WTS , BUOY, BL, BH , SL , SH , TL , TT ,CGH,CGL,Q, 

+ CL , CM, CD, CL A , CMA* CDA, ALPHA, F, G, SA,CA ) 

SUBROUTINE COMPUTES THE STATIC TRIM ANGL E-OF -ATT ACK ALPHA USING 
NEWT CN ITERATIGN OF THE TRIM EQUATION 
THE ALPHA DEPENDENT DERIVATIVES CD, CDA, CL, CLA, CM, AND CMA ARE 
ALSO TRANSFERRED TO THE CENTER OF MASS AND RETURNED 
IF CONVERGENCE IS NOT OBTAINED IN ITCMAX ITERATIONS, MESSAGE IS 
WRITTEN ON TAPE 11 

COMMCN/LONGDL C/CDlNS,DELCD,DELCL,OELCM 

ERR=1 • E-6 t TLPHA= .05 $ 0S=0*S $ ITCMAX=100 $ ITC=0 

D=BUCY*BL+WTS*SL t E=BUOY*BH+WTS*SH 

1 ALPHA=TLPHA S CL=FCL { A LPH A, CL A ) 4 CD=FCD( ALPHA , CDA) 

CMR = FCMR( ALPHA, CMAR ) % CA = COS I AL PHA ) $ SA=S I Nl ALPHA ) 

A=TL*CA+TT*SA $ B=TT*CA-TL*SA 

F=( CGL*CA+CGH*SA)/CPAR t G= ( CGH*C A-CGL*SA ) /C BA R 
CM=CMR-F*CL+G*CC $ CMA=CMAR-F*(CLA+CD )— G*ICL-CDA) 

CL = CL+DELCL $ CM= CM+DELCM $ C = BUOY-wTS+QS*CL 
CD=CC+OELCD+CDINS 

FUN=A*C-I B*CD*CM*CBAR )*OS-D*C A+E*SA 

DFUN=B*C + D*SA*E*CAMA*( CL A*CD )-B*CD A- CMA*C B AR ) *QS 

TLPHA = ALPHA- FUN /DF UN t ITC=ITC*1 $ IF ( I TC. GT . I TCMAX ) GO TO 2 

IF ( AESIALPHA— TLPHA I .GT . ERR ) 1 , 4 

2 WRIT€(11,3)ITC, ALPHA, TLPHA 

3 FORMAT!/* ITERATION FOR TRIM DID NUT CONVERGE IN*I6* ITERATIONS. 
♦ ALPHA=*G12.6* TALPHA = *G1 2.6/ ) 

4 RETURN 

ENO SLBROUTINE TRIM 
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FUNCTION FC0(A,CDA) 


FCD IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CD AND CDA 
AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO BE ANALYZED 

CURVE FIT OF CD AND CDA VS ANGLE OF ATTACK IN RADIANS FOP LRC- 
BALLOON - REFERENCE CONFIGURATION 

X=A-.023 $ X5=X**5 % CDA=1117.2*X5 
FCD= .0487+196. 2*X*X5 $ RETURN $ END 


FUNCTION FCL(A,CLAI 

FCL IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CL AND CLA 
AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO BE ANALYZED 

CURVE FIT OF CL AND CLA VS ANGLE OF ATTACK IN RADIANS FOR LRC 
BALLOON - REFERENCE CONFIGURATION 

X = A- .02 3 $ X2 = X*X $ CLA=.B2-X2*I15. 069-557. 0*X2) 

FCL=X*( .82-X2*( 5.023-111. 4*X2 l ) $ RETURN ( END 


FUNCTION FCMR(AtCMAR) 

FCMR IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CMR AND C MAR 
AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO BE ANALYZED 

CURVE ^F I T OF CM AND CMA ABCUT REFERENCE POINT VS ANGLE OF ATTACK IN 
RADIANS FOR LRC BALLOON - REFERENCE CONFIGURATION 

CM4R=.1435 $ FCMR=-.0106+.1435*A $ RETURN t END 


SUBROUTINE DERT RN I X i Z > C 0 . COU . CL * CLA , CLU , CLAD , C L QR ,C M » CM A» CMA DR t 
♦ CMQR,CMUR, CLQ, CMAD«CMQ,CMU I 

TRANSFERS CLO* CHAD, CMQ, AND CMU FROM REFERENCE POINT (MOMENT CENTER) 
TO CENTER OF MASS LOCATED X/C FORWARD ANO Z/C DOWN FROM REFERENCE 
POINT 

CLQ=CLQR*2.*(X*CLA-Z*( 2.*CL+CLU) ) 

CMU=CMUR+Z*COU-X*CLU t CM AD=CM ADR— X*CLAD 

CMa=CMQR-X* ICLQR-2.*CMA )-2.*Z*( 2.*CM+CMU) $ RETURN t END DERTPN 
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SUBROUTINE TETHER ( COR AG , WC , CL 1 ,T 1 , GAMMA 1 ,T 0 ,GA MMAO, XI , Z1 ) 

SUBROUTINE IS BASED ON THE ANALYSIS IN - 

NEUMAPK, S.- EQUILIBRIUM CONFIGURATIONS OF FLYING CABLES OF 
CAPTIVE BALLOONS, AND CABLE DERIVATIVES FOR STABILITY 
CALCULATIONS. BRITISH R. AND M. NO.- 3333, 1963. 

THE TETHER PARAMETERS CDRAG, WC, CL1, Tl, AND GAMMA1 ARE INPUT 
THE TETHER PARAMETERS TO, GAMMAO, Xi, AND El ARE OUTPUT 

EXTERNAL FLAM.FSIG $ COMMGN/P C/P , Q 
P=.5*WC/CCRAG S Q=SQRT ( 1 + P*P > $ EPS = l.E-8 

CALL ROM8ERGIRLAM1,0.,GAMMA1, FLAM, EPS) i TAU1=TAUIGAMMA1 I 
RLAMO=RLAMl-CORAG*T 4U1*CL1/Tl t CALL NE Wl NT I RL AMO , F L AM, 1 . , GAMMA 0 ) 
CALL ROMBERGIDSIG, GAMMAO, GAMMA 1,F SI G, EPS) 

X1=T1*DSIG/(CDRAG*TAU1 ) * TAUO=TAU< GAMMAO) 

TO=Tl*TAUO/TAUl t Z 1 = 1 Tl-TO ) /WC t RETURN * END 


FUNCTION FLAMIT) $ COMMON /P C/P , Q t CT=CQS!T) 

FLAM=((Q+P-CT)/(Q-P+CT))**IP/Q)/(1-CT*CT+2*P*CT) * RETURN $ END 


FUNCTION FSIG(T) S COMMON/PQ/P ,Q $ CT=COS(T) 

FSIG=I IQ+P-CTI/IQ-P+CT ) )**( P/Q)/ ( 1— CT*CT+2*P*C T)*CT i RETURN $ END 


FUNCTION TAUIT) $ COMMON/ PQ/P , Q $ CT=CDSIT) 

T AU = { ( Q+P-CT ) / ( Q-P +CT ) I ** I P/Q ) S RETURN $ END 


SUBROUTINE NEW I NT l C , F , XO , X ) t EPS=l.E-8 * XT=X0 t 1=0 
C 

C SUBROUTINE COMPUTES THE UPPER LIMIT X OF THE OEFINITE INTEGRAL 
C FROM 0 TO X OF THE FUNCTION F FDR WHICH THE VALUE OF THE 
C INTEGRAL C IS KNOWN 

C NEWTON ITERATION IS USED WITH THE VALUE OF THE INTEGRAL DETERMINED 
C BY SLBROUTINE ROMBERG 

C 

1 X = X T t CALL RCMBERG(S,0.,X,F,EPSI t XT=X+IC-S) /Ft XJ t 1=1+1 
PI 2=1. 570T9e326 $ I F ( XT.GT.P I 2) XT=PI2 * IFIXT.LT.O.) XT = 0. 
IFII.LT.2) GO TO 1 * IF(ABSIX-XT) .GT.EPS) GO TO 1 
X=XT $ RETURN 

END SUBROUTINE NEWINT 
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SUBROUTINE ROMBERG I SUM , A , B , FUN, EPS ) S DIMENSION Q120) 

***** ********* ******* ******* ************* a******** ******* ****** ********** 
* SUBROUTINE FOR ROMBERG QUADRATURE - SEE WRITEUP FOR DESCRIPTION * 

*********************************** ************************************** 
SUM=0 $ IFIA.EQ.B) RETURN 

H*B— A $ FA=FUN(A) $ FB=FUN I B ) $ FM=AM AX 1 ( ABS ( F A) , AB S ( FB J > 

T= • 5* H*( FA + FB ) $ NX=1 $ 00 5 N=l, 19 $ H=.5*H * SUM=0 £ 1*0 

1 1*1+1 * FX=FUN(A+H*(I+I-1)> * IFIABSl FXI.GT.FM) FM=A8S(FX) 
SUM=SUM+FX $ IFII.LT.NX) GO TO 1 

T*.5*T+H*SUM $ QIN)=. 666666666666667* (T+H*SUM) 

IF( N.LT.2 ) GO TO 4 $ F=4. $ 00 2 J-2*N 1 I = N+1-J S F=4.*F 

2 Q41 )*Q(l + l)+(Q( 1+1 )-Q I I) ) / 1 F-l . ) $ IFIN.LT.3) GO TO 3 

X* ABS { Q( L)-QX2)+ABS(QX2-QX1) $ IF IX.L E.2. *EPS*FM*ABSl B-AI) GO TO 6 

3 QX1=QX2 

4 QX2=Q(1) 

5 NX=N X + NX 

6 SUM=QU) £ RETURN 

END SUBROUTINE ROMBERG 


SUBROUTINE QUADET ( A .B , C , NMAX, NHAX2, N, I OP, E1GDET *CNQ ) 

SEE SUBROUTINE WRITEUP FOR DESCRIPTION 
C0MMCN/IROW/IR0W1300I/ICOL/1CCLI 300) 

DIMENSION KR (7) , AINMAX, 1 » , B I NMAX , 1 ) t C l NMAX, 1 I , EIGDETI NMAX 2, 1 I 
AN* 0 . $ AIN V*0. £ R INDF* 01777C0C0 CO 00 00001777 
KR 1 1 ) * I OP £ KR(4)*0 $ KR ( 2 I — KR 4 5) = N $ KR13)=3*N £NSQ=N*N 

NS1=NMAX2*NMAX2-NSQ £ NS2=NS1-NSQ * NS3=NS2-NSQ $ NS3P1*NS3+1 
00 1 J = 1 »N i 00 1 1 = 1. N £ IE* I+N + J-N $ EIGDETI NS 3 +IE)=A(I» Jl 
EIG0ETIN$2+IE)=B(I.J)$ E I GDET l NS I+I E ) *C ( I . J I 

1 AN* AN+A ( I • J ) *AI I. J ) $ CALL MASCNT ( KR , El GDET ( N S3P 1) , OET ,CC ) 
1FICET.NE.0.1G0 TO 2 A CN0*-1. $ RETURN 

2 IF ( IOP »NE .10 ) GO TO 4 S DO 3 J*1,NSQ 

3 AINV*AINV+EIG0ET(NS3+J)*EIGDET(NS3+J) $ CN0=SQRT ( AN* A INV/NSQ ) 

4 DO 5 J* 1 . N $ DO 5 1=1, N $ IE=I+N*J-N 

5 EIGOETI I»J|*-EI GDETINS2+IE ) £ DO 6 J = 1,N $ 00 6 1=1, N $ IE=1+N*J-N 

6 EIGDEf (I, J+N)=-EIG0ET{NS1+IE) £ 00 7 J*1,NMAX2 £ DO 7 1*1, N 

7 EIGOETI I+N, J)=0. * DO 8 J=l,N 

8 EIGDETIN+J, J )=1. £ IF ( N. EQ. NMAX ) RETURN 

N 2P 1=N+N + 1 £ CO 9 I = N2P1,NMAX2 £ DO 9 J=1,NMAX2 £ 61 GDET I J , I ) = RI NOF 

9 EIGDETI I, J)=R INDF £ RETURN 

END SUBROUTINE QUADET 


SUBROUTINE MATRIX! I ,M , N , K , A, KA, B , KB , C , KC ) 

SEE SUBROUTINE WRITEUP FOR DESCRIPTION 

CGMMCN/ IROH/ IRQW1300)/IC0L/ ICCLI 300 ) £ OIMENSION All) , B 1 1 1 , KR I 7 I 
KR l l ) = I £ IF(I.NE.IO) GO TO 2 £ S=0 £ DO 1 L = l» M £ DO 1 J = 1,M 

1 S=S+A(L+J+KA-KA|*A(L+J*KA-KA) £ T=0 

2 KR ( 2 ) =M £ KR 1 3 )=N £ KR(4)=K £ KRI5)=KA £ KRI6)=KB £ KRIT) = KC 
CALL MASCNT ( KR , A , B, C ) £ I FI I .NE . 10 ) GO TO 4 £ D03 L=1,M £003 J=1,M 

3 T = T + A 1 L+ J *K A— KA )*A(L+J*KA— KA) £ C = SQR T I S*T ) /M 

4 RETURN 

END SUBROUTINE MATRIX 
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SUBROUTINE REIG < A, H* NVAL , NVEC , ROOTR , ROOT I , VEC * MA X, IOX , I RN« P , NP , REIGOOIO 
1 SAVE) REIG0020 

PROGRAM TO CALL OR TRANSFORMATION, VARIABLE DIMENSION REIG0030 

MAXIMUM ITER IS 50 REIG0040 

THIS VERSION OF REIG HAS BEEN ALTERED SUCH THAT EIGENVECTORS ARE 
NOT CALCULATED. SUBROUTINE VECTOR HAS BEEN DELETED AND VEC DOES 
NOT HAVE TO BE DIMENSIONED 

SEE SUBROUTINE WRITEUP FOR DESCRIPTION 


DIMENSION A (MAX, MAX ) , R OOT R ( MAX ) , ROOT I (MAXI , V EC l MAX , M A X ) , IQX( MAX) , 
1 IRN( MAX) ,P (MAX) , S A V E ( MA X , NP ) 

REAL IDXfIRN 
C 

N = M 

C SAVE ORIGINAL MATRIX, RESTORE AT 200 

DO 5 1=1, M 
DO 5 J=1 , M 
5 SAVE! Jill = A ( J , 1 1 

C REDUCE MATRIX TO HESSENBERG FORM 

CALL HESSEN ( A , M, MAX I 
ZERC = 0.0 
JJ = 1 

177 XNN = 0.0 
XN2 = 0.0 
AA = 0.0 


B = 0.0 
C = 0 .0 
OD = 0.0 
R = 0.0 
SIG = 0.0 
I TEP= 0 

IF (N-2) 13,14,12 

13 ftOQTRd] = A ( 1,1) 

ROOT I (1) = 0.0 

GO TO 200 

14 JJ= -i 

12 X = {A(N-1,N-1> - A ( N» N ) 1**2 
S = 4.0*A(N,N-1 )*A IN-1, N) 

ITER = ITER + 1 

IF (X .EQ. 0.0) GO TO 15 

IF 4 Ad S ( S /X ) .GT. 1.0E-8J GO TO 15 

IF ! ABS(A(N-lfN-l >) - ABS ( A ( N , N ) ) ) 

31 E = A(N-liN-l) 

G = A(N V N) 

GO TO 33 

32 G = A(N-1,N-1) 

E = A I N, N ) 

33 F = C.O 
H = 0.0 
GO TO 24 

15 S = X ♦ $ 

X - AIN-lf N-L ) ♦ A( N v N ) 

SQ = SQRT ( ABS ( S ) ) 

IF (S) 1B,19,19 
19 F * 0.0 
H = 0.0 

IF (X) 21,21,22 


REIGQ05G 
REIG0060 
^ E I GQG70 
RE I GOO 80 
REI GOO 90 
REIG0100 
R El G0110 
REIG0120 
RE I GDI 30 
R E I GO 1 40 
RE I GO 1 50 
RE I GO 160 
R E I GO 1 7 0 
REIG0180 
RE I GO! 90 
REIG0200 
REIG0210 
REIG0220 
R E I GO 2 30 
REIG0240 
Ft E I GO 2 50 
REIG0260 
RE1G0270 
REIG02B0 
REIG0290 
REIG0300 
REIG0310 
R E I GO 3 20 
REIG0330 
F E I GO 3 40 
? EIG0350 
REIG0351 

32,32,31 RFIG0360 

REIG0370 
REIG0380 
REIG0390 
REI G0400 
REIG0410 
REI G0420 
REIG043D 
REIG0440 
REIG0450 
R E I GO 4 60 
REIG0470 
REI G0480 
REIG0490 
R E I GO 5 00 
REIG0510 
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21 

E = (X-$Q)/2.0 

REIG0520 


G = (X+SQ)/2.0 

R E I GO 5 30 


GO TO 24 

REIG0540 

22 

G = (X-SQ)/2.0 

REIG0550 


E = ( X+SQ ) / 2 • 0 

REIG0560 


GO TO 24 

RE I GO 5 70 

13 

F = S Q/2 *0 

REIG0580 


E = X/2.0 

REIG0590 


G = E 

REIG0600 


H = -F 

REI G0610 

24 

IF (JJ .L T* 0) GO TO 28 

REIG0620 


0 = 1.0E-10*< ABS« G 1 + F) 

REIG0630 


IF UBS( A(N-l,N-2 H .GT. 0) GO TO 26 

REI G0640 

28 

ROOTR(N) = E 

REIG0650 


RGOTI(N) = F 

REIG0660 


ROOTR(N-l) = G 

REIG0670 


ROOT I (N-l ) = H 

REIG0680 


N = K-2 

REIG0690 


IF (JJ) 2 00 t 177 1 177 

REIG0700 

26 

IF(ABS(A(N,N— 1) ) • GT * 1 . 0E-10* ABS < A ( N , N HI GO TO 50 

REIG07 10 

29 

ROOTRIN) = A ( N , N ) 

REI G07 20 


ROOTIlNI = 0.0 

REIG0730 


N = N-l 

REIG0740 


GO TO 177 

REIG0750 

50 

IF (ABS(ABS(XNN/A(N,N-1I ) - 1 . 0 )-l . OE-6 ) 63,63,62 

REIG0760 

62 

IF (ABS(ABS(XM2/A( N-l , N-2 i )- 1 . 0 ) -1 . OE-6 ) 63,63 *70 0 

REIG0770 

63 

VO = ABS(A(N,N-1I) - ABS ( A ( N- 1 , N— 2 ) ) 

REIG0780 


IF (ITER-15) 53 , 164, 64 

REIG0790 

164 

IF (VQ) 165,165,166 

REI G0800 

165 

R = A l N— 1, N- 2 )**2 

REI GOB 10 


SIG = 2 • 0 * A ( K— 1 , N— 2 ) 

REIG0820 


GO TO 60 

REIG0930 

166 

R = A ( N * N— 1 )**2 

REIG0840 


SIG = 2. 0*A{ N ,N — 1 ) 

REI GOB 50 


GO TO 60 

RE1G0860 

64 

IF (VQ) 29,29,28 

REIG0970 

7 00 

IF (ITER .GT . 50) GO TO 63 

REI G0380 


IF ( ITER .GT « 5 » GO TO 53 

PEIG0890 


Z1 = ( (E-AA)**2+(F-B)**2 l / ( E*E*F *F ) 

REI G09 00 


12 = ( (G-C)**2+IH-DD)**2)/ ( G*G*H*H) 

REIG0910 


IF (Zl-0.25) 51,51,52 

REIG0920 

51 

IF (Z2-0.25) 53,53,54 

REIG09 30 

53 

R=E*G-F*H 

REIG09 40 


SIG = E *G 

RE IG0950 


GO TO 60 

REIG09 60 

54 

R = E*E 

REIG0970 


SIG = E + E 

REIG09 80 


GO TO 60 

REIG0990 

52 

IF (Z2-Q.25) 55,55,601 

REIG1000 

55 

R = G*G 

REIG1010 


SIG*G*G 

REIG1020 


GO TQ 60 

REIG1030 

601 

R = 0.0 

REIG1040 


SIG = 0.0 

REIG1050 

60 

XNN = A ( N , N- 1 ) 

REIG1060 


XN2 = A ( N— 1 , N— 2 ) 

REIG1070 


CALL QRT (A,N,R,SIG,D, MAX 1 

REIG1080 


AA = E 

REIG1090 


B = F 

REI GllOO 


C * G 

RE I Gil 10 


OD = H 

REIG1120 


GO TO 12 

REIG1130 
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C RESTORE MATRIX 

230 DO 210 J = 1 , M 

DO 210 1=1, M 

210 AH t J) = SAVEU ,J) 

C TEST FOR COMPLEX ROOTS 

N * 0 
NC = Mfl 

DO 225 1*1, M 

IF IRQOTR(I) .EQ. 0.) GO TO 212 

IF ( A8S( ROOT I ( I ) /ROOTR II)) «GE » l.E-12) GOTO 215 
212 IF ( ABS ( ROOT III)) • LT. l.E-12) GO TO 218 
C INDEX FOR COMPLEX (END OF ARRAYS) 

215 NC = NC- 1 

JM = NC 

GO TO 220 

C INDEX FOR REAL ROOTS SAME, N = NO. REAL ROOTS 

218 N = N+l 
JM * N 

220 IRN(JM) = ROQTRU) 

225 IDX(JM) = ROOTim 

C REAL ROOTS IN DESCENDING ORDER BY MAGNITUDE 

DO 240 1*1, M 
IF (I .GE . N> GO TO 235 
K * 1 + 1 
DO 230 J = K,N 

IF I ABS ( IRN ( I ) ) .GE. ABSdRMJUl GO TO 230 
SIG = IRN< J I 
IRN ( J I = IRN ( I ) 

IRN 1 1 ) = SIG 
230 CONTINUE 
235 RCiOTR ( l ) = IRN( I ) 

ROOT I ( I ) = ICXl I) 

STORE ZERO IN VECTOR 

STORE ZERO IN VECTOR DELETED FROM THIS VERSION 
DO 240 J=1,M 
240 VECC J, I) - 0.0 
240 CONTINUE 

IF CNVEC .LT. hi) N = NVEC 
IF ( N .LE. 0) GO TO 250 
DO 245 I = 1,N 
K = N+l-I 

IF IABS(R00TR(K ) /ROOTR (111 .GT.l.E-14) GO TO 248 
245 ROOTR IK) =0. 

248 CONTINUE 

CALL ROUTINE FUR N VECTORS 

CALL ROUTINE FOR N VECTORS DELETED FROM THI S VERSION 
CALL VECTOR ( IDX, IRNtPOOT R, A,VEC, M, SAVE , P ,NP, MAX, Nl 
250 RETURN 
ENC 


RE I Gil 40 
REIG1150 
RE I Gil 60 
REIG1L70 
REIG1180 
REIG1190 
REIG1200 
REIG1210 
REIG1220 
REIG1230 
REIG1240 
REIG1250 
REIG1260 
REIG1270 
REIG1280 
REIG1290 
REIG1300 
REIG1310 
REIG1320 
REIG1330 
REIG1340 
REIG1350 
REIG1360 
REIG1370 
REIG1380 
REIG1390 
REIG1400 
REIG1410 
REIG1420 
REIG1430 
REIG1440 
REIG1450 
REIG1460 

REIG1470 

REIG1480 

R6IG1490 

REIG1500 

REIG1510 

REIG1520 

REIG1530 

REIG1540 

REIG1541 

REIG1550 

REIG1560 

REIG1570 

REIG1580 
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SUBROUTINE QRT < A , N , R,$ I G , 0. M AX) 

♦QRTOOOi 


DIMENSION ACMAX,MAX),PSH2)»GI3) 

+QR70002 


N1 ■ N - 1 

♦QRT0003 


IA * N - 2 

* QRT0004 


IP * IA 

♦QRT0005 


1FIN-3) 101,10,60 

♦QRT0006 

60 

DO 12 J = 3,N1 

♦QRT0007 


J1 = N - J 

* QRT0008 


I F ( A8S ( A{ J1+1»J1) 1-0 ) 10,10,11 

* QRT0009 

11 

OEN = A( Jl+1 , Jl+1 1 *1 AC Jl+1, J1+1)-SIG) +A( Jl+1, Jl+2 l*A(Jl+2,Jl+l)+R 

♦QRT0010 


IF40EN) 61,12,61 

♦QRTOOll 

61 

IFIABSCAC Jl + 1, J1)*A (Jl + 2, J1+ 1 ) *C ABS C A l Jl+1, J1+ 1 >+A< Jl+2 , Jl+2 > 

* QRTQO 12 

1- SI G ) +ABS 1 A ( J1+3 V Jl+2) 1 )/DEN>-D) 10, 10,12 

* QRTOO 13 

12 

I P= J1 

♦QRTQO 14 

10 

DO 14 J=1,IP 

♦ QRTOO 15 


J1=IP-J+1 

♦QRTOO 16 


IFCABSCAC Jl+1, Jlll-D) 13,13,14 

♦QRT0017 

14 

I0=J1 

♦QRT0018 

13 

DO 100 I=IP,N1 

♦QRT0019 


IFCI-IP) 16,15,16 

* QRTOO 20 

15 

G C 1 >-A l IP, IP)*( A( IP, IP J-SIGl+AC IP.IP+l )*AIIP+1, IP )+R 

♦ QRTOO 21 


G12 )=A(IP+1, IP)*(AC IP, IP) +AI IP+1, 1P + D-SIGI 

♦ QR TOO 22 


G(3)®ACIP*l,IPI*A( I P+2 , I P + 1 ) 

♦ QRTOO 23 


A(IP+2,IP>=0.0 

♦QRT0024 


GO TO 19 

♦ QRT 00 25 

16 

G(1 ) = A(I , 1-1 ) 

♦ QRTOO 26 


G( 2 ) ®A 1 1 + 1, l-l ) 

♦ QRTOO 27 


IF(I-IA) 17,17,13 

♦QRT0028 

17 

G (3 1 = A ( I +2, 1-1) 

♦ QRTOO 29 


GO TO 19 

♦QRT0030 

18 

GC 3 )*0«0 

♦QRT0031 

19 

XK = SIGNCSOBT (GC1 ) **2 + G(2>**2 + GC3)**2), G(1M 

♦ QRT0032 

22 

IF t XK > 23,24,23 

* QR TOO 33 

23 

AL=G(1)/XK+1.0 

* QRT003 4 


PSl(l)=G(2)/(G(l)+XK) 

♦ QRT0035 


PSI C 2 1 = G I 3) /l G( 1 1 +XK ) 

* QRTOO 36 


GO TO 25 

♦QRT0037 

24 

Ai_= 2,0 

♦QRT0038 


psi m=o.o 

* QRTOO 39 


PSI (2 ) = 0.0 

♦QRT0040 

25 

I F ( I- I o 1 26,27,26 

♦ QRTOO 41 

26 

IFCI-IP) 29,28,29 

♦QRT0042 

28 

All, l-l)*— A (I, I— 1) 

♦ QRT0043 


GO TO 27 

♦ QRT0044 

29 

ACI , 1-1 )=-XK 

♦QAT0045 

27 

DO 3C J* I , N 

♦ QRTOO 46 


IF(I-IA) 31,31,32 

♦QRT0047 

31 

C=PSI (2)*A( 1+2, Jl 

♦QRT0048 


GO TO 33 

♦ QRT0049 

32 

C = 0 ■ c 

♦QRTOO 50 

33 

E=AL* 1 A( I 9 J ) +PS I ( l l*AII+l»J)+C) 

* QRTOO 51 


All, J)=A<1, J)-E 

♦ QRTOO 52 


A l I ♦ 1 , J A( 1+1, J)-PSII 1)*E 

* QRTOO 53 


lFli-IA) 34,34,30 

♦ QR T 00 54 

34 

AII+2, J)-A( I+2 V JI-PSI (2I*E 

♦ QRTOO 55 

30 

CCNTINUE 

♦ QRTOO 56 


IF! I- I A > 35,35,36 

* QRTOO 57 

35 

L- I + 2 

♦ QRTOO 58 


GO TO 37 

♦ QRTOO 59 

36 

L = N 

♦QRT0060 

37 

DO 40 J=IQ,L 

♦QRTQ061 
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IF(I-IA) 38,30,39 

38 C=PSI (2)*At Jt 1*2 » 

GO TO 41 

39 00.0 

41 E=AL*(AIJ V I)+PSI(1)*A( J » I +1 ) +C ) 
A( J , I )- A ( j, Il-E 

A(J,J*l)=Al J,1+1)-PSI(1)*E 
IFII-IA) 42,42,40 

42 A( J, I+2)=A(J,I+2)-PSI(2)*E 

40 CONTINUE 

I F I I-N+3) 43,43,100 

43 E=AL*PSI <2l*A(I+3, 1+2) 

A I 1+3,1 I--E 

A(I *3, 1«-1)=-PSI ( 1 ) + E 

A( I 43 , 1 +2 )=A I 1+3, 1+2 5-PSI <2)*E 

100 CONTINUE 

101 RETURN 

ENC 


SUBROUTINE HESS EM A , M, MAX ) 

C SUBROUTINE TO PUT MATRIX IN UPPER 

DIMENSION A I MAX , M AX ) , B199) 

DOUBLE PRECISION SUM 
IF ( M - 21 30,30,32 
32 DO 40 LC « 3 , M 
N = M - LC + 3 
N1 = N - 1 
N2 - N — 2 
N 1 = N1 

DIV =: ABSTAIN, N-l ) ) 

DO 2 J = i,N2 

IF( ABS1AIN, J ) )- DIV) 2,2,1 

1 N I = J 

DIV = A8S ( A ( N , J ) ) 

2 CONTINUE 

I F I CIV! 3,40,3 

3 IF I N I - Nl) 4, 7,4 

4 DO 5 J = 1 , N 
□ IV = A { J , N I » 

A ( J , NI ) = A ( J , NL I 

5 A I J ,N 1 ) =■ Dl V 
DO 6 J = L,M 
DIV = A < N I , J) 

A ( N I , J ) = A( Nl, J) 

6 A ( N I , J) = DIV 

7 DO 26 K * 1, Nl 

26 B ( K ) = A(N,K)/A(N, N-l) 

DO 45 J = 1 , M 
SUM * 0.0 

IF <J - Nl) 46,43,43 
46 IFC6CJ1) 41,43,41 

41 A ( N , J ) = 0.0 
DO 42 K = 1 , Nl 

A(K,J1 = A ( K , J ) - A ( K , Nl ) * B ( J ) 

42 SUM = SUM + A(K,J)*B<K) 

GO TO 45 

43 DO 44 K = 1 , N 1 

44 SUM = SUM + A ( K , J ) *B ( K ) 

45 A ( Nl I , J ) = SUM 
40 CONTINUE 

30 RETURN 
END 


* QRT0062 

* QR T0063 
♦QRT0064 

* QRT0065 
♦0RT0066 
♦0RT0067 
*QRTOO60 

* QRT0Q69 
+QRT0070 
♦QRT0071 
♦QRT0072 
♦0RT0073 
♦QRT0074 
♦QRT0075 
*QRT0076 
♦QRT0077 
*0RTOO78 
*0RT0079 


HESS0002 

H ESSENBERG FORM. HESSOOOl 

HE S S0003 
HE: S S0004 
HESS0005 
HESS0006 
HESS0007 
HE: S S0008 
HESS0009 
HE: S S0010 
HESS0011 
HE: S $0012 
H E: S SO 0 1 3 
HE: S $00 14 
HE:S SOO 15 
HE: S SO 016 
HE S SOO 1 7 
HE: S SOO 1 8 
HE:S SOO 19 
HEISS0020 
HESS0021 
HE:S SOO 22 
HE: S S0023 
HESS0024 
HESS0025 
HESS0026 
HE S SOO 2 7 
HESS0028 
HE S S0029 
HE SS0030 
H E:S SOO 31 
HE S SOO 3 2 
HESS0033 
HESS0034 
HESS0035 
HE S SOO 36 
HESS0037 
HE SSOO30 
HESS0039 
HESS0040 
HESS0041 
H E S SOO 42 
HES 50043 
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SUBROUTINE CX l N V ( A , N , B , M , DET , IP I V , I ND X , MAX , I SC ALE I 


COMPLEX MATRIX INVERSION WITH SOLUTION OF LINEAR EQUATIONS 

CAVM = CABS ( A( MAX ) I i CAVA = CABS(AII,JIJ 
CiOM = CABSI CETERM) , CAPV = CABSIPIVOT) 

COMPLEX A (MAX , N ) » BIMAX, Ml, SWAP, DET, PIV, PIVI, CO, Cl 
DIMENSION IPIVIN), INDXIMAX,2I 

CONSTANTS, INITIALIZATION 

CO = (0.0,0.01 
Cl = 11.0,0. Cl 
ISCALE = 0 
RL = 10.0**100 
RS * 1.0/RL 
DET = Cl 
CADM = 1.0 
00 20 J-l »N 
20 IPIVIJI = 0 
DO 500 1=1, N 

SEARCH FOR PIVOT ELEMENT 

CAVM = 0.0 
00 105 J= 1, N 

IF (IPIVIJI .EQ. II GO TO 105 
00 100 K= 1, N 

IF (IPIV(K) - 1) 50,100,750 
50 CONTINUE 

CAVA = CABSI A( J,K ) I 
IF (CAVM .GE. CAVA) GO TO IOC 
IROW = J 
ICOL = K 
CAVM = CAVA 
100 CONTINUE 
105 CONTINUE 

-IF (CAVM .EQ. 0.0) GO TO 720 
IPI V( ICOL ) = IP IV ( ICOL ) l 

INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

IF (IROW .EQ. ICOL) GO TO 230 
OET = -DET 
DO 200 L=l, N 
SWAP = A ( I ROW , L ) 

A ( I ROW , L ) = A(ICOL.L) 

A ( I COL ,L ) = SWAP 
200 CONTINUE 

IF IM .LE. 0) GO TO 230 
DO 2 2 0 L= 1, M 
SWAP = B( IROW , L ) 

B ( I ROW ,L ) = B( I COL , L I 
B(ICCL,L) = SWAP 
220 CONTINUE 
230 CONTINUE 

I NOX (1,11 = IROW 
INOXi 1,2 I = ICOL 
PIV = All COL , ICCL ) 


FI. 3 

0 

FI. 3 

1 

FI. 3 

2 

FI. 3 

3 

FI. 3 

4 

FI. 3 

5 

FI. 3 

6 

FI. 3 

7 

FI. 3 

e 

FI. 3 

9 

FI. 3 

10 

FL .3 

11 

FI. 3 

12 

FI. 3 

13 

FI. 3 

14 

FI .3 

15 

FI. 3 

It 

FI. 3 

17 

FI. 3 

ie 

FI. 3 

19 

FI. 3 

20 

FI. 3 

21 

FI. 3 

22 

FI. 3 

23 

FI. 3 

24 

FI. 3 

25 

FI. 3 

26 

FI. 3 

27 

FI. 3 

28 

FI. 3 

29 

FI. 3 

30 

FI. 3 

31 

FI. 3 

32 

FI. 3 

33 

FI. 3 

34 

FI. 3 

35 

FI. 3 

36 

FI. 3 

37 

FI. 3 

38 

FI. 3 

39 

FI. 3 

40 

FI. 3 

41 

FI. 3 

42 

FI. 3 

43 

FI. 3 

44 

FI. 3 

45 

FI. 3 

46 

FI .3 

47 

FI. 3 

48 

FI. 3 

49 

FI. 3 

50 

FI. 3 

51 

FL.3 

52 

FI. 3 

53 

FI. 3 

54 

FI. 3 

55 

F.1.3 

56 

FI. 3 

57 

FI. 3 

50 

FI. 3 

59 
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CAPV = CABS ( P I V ) 


1=1.3 

60 


IF (CAPV .EQ • 0.0) 

GO TO 720 

= 1.3 

61 




1=1.3 

62 


scale determinant 

FI .3 

63 




(=1.3 

64 


PI VI = PIV 


= 1.3 

65 


CAOM = CABS I D ET ) 


i=l. 3 

66 


IF ( C A DM .LT. RL 

) GO TO 26 0 

= 1.3 

67 


DET = DET/RL 


1=1.3 

66 


CAOM = CABS(OET) 


1=1.3 

69 


ISCALE = ISCALE * 

1 

1=1 .3 

70 


IF ( C ACM .LT. RLI 

GO TO 290 

1=1 .3 

71 


DET = DET/RL 


FI. 3 

72 


ISCALE = ISCALE * 

1 

FI. 3 

73 


GO TO 290 


FI. 3 

74 

260 

CONTINUE 


FI. 3 

75 


IF (CAOM .GT. RS) 

GO TO 290 

1=1.3 

76 


DET = DET*RL 


FI. 3 

77 


C ADM = CABS ( DET ) 


FI. 3 

76 


ISCALE = ISCALE - 

1 

FI. 3 

79 


IF (CAOM .GT. RSI 

GO TO 290 

FI. 3 

80 


DET = DET *RL 


F 1 . 3 

81 


ISCALE = ISCALE - 

1 

F L • 3 

82 

290 

CONTINUE 


FI. 3 

03 


CAPV = CABS(PIVI) 


FI. 3 

84 


IF (CAPV .LT. RL) 

GO TO 320 

FI .3 

85 


PIVI = PI VI /RL 


FI. 3 

86 


CAPV = CABS(PIVI) 


FI. 3 

87 


ISCALE = ISCALE ♦ 

1 

(=1.3 

88 


IF (CAPV .LT. RL) 

GO TO 340 

FI .3 

89 


PIVI = PIVI/RL 


FI. 3 

90 


ISCALE - ISCALE + 

1 

FI. 3 

91 


GO TO 340 


F 1 . 3 

92 

320 

CONTINUE 


FI. 3 

93 


IF (CAPV .GT. R S ) 

GO TO 340 

FI. 3 

94 


PIVI = PI VI*RL 


F 1 • 3 

95 


CAPV = CABS (PIVI) 


FI. 3 

96 


ISCALE = ISCALE - 

1 

FI. 3 

97 


IF (CAPV .GT. RS) 

GO TO 340 

FI. 3 

98 


PIVI = P I V I * R L 


FI. 3 

99 


ISCALE = ISCALE - 

1 

FI. 3 

100 

340 

CONTINUE 


F 1 . 3 

101 


DET “ DET * PIVI 


FI. 3 

102 




FI. 3 

103 


ClVlDE PIVOT ROW BY PIVOT ELEMENT 

FI. 3 

104 




FI. 3 

105 


A ( I CCL t ICOL ) = Cl 


f 1 . 3 

106 


00 350 L-l » N 


r 1.3 

107 

3 50 

All COL • L ) = All COL 

»L) / PI V 

F 1 . 3 

108 


IF (K .LE. 01 GO TO 380 

FI. 3 

109 


DO 370 L= 1 i M 


F1.3 

110 

3 70 

B( I CCL « L ) = B ( I COL 

« L )/PlV 

FI. 3 

111 




F 1.3 

112 


REDUCE NON-PIVOT ROMS 

FI. 3 

113 




F 1.3 

114 

380 

CONTINUE 


FI. 3 

115 


DO 500 L 1=1 i N 


FI. 3 

116 


IF (LI .EQ. ICOL) 

GO TO 500 

FI. 3 

117 


SWAP = A(L1, ICOL) 


FI. 3 

lie 


A ( L 1 » ICOL) = CO 


FI. 3 

119 


DO 400 L*1»N 


F1.3 

120 
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400 A(Ll f L) = A ( L 1 * l ) - A I IC01 , U *S W AP 
IP iH «L E . 0) GO TO 500 
DO 450 1 1 M 

450 B t L 1 , L ) = B ( L 1 v L ) - fl( I COL * L INSWAP 
500 CONTINUE 

INTERCHANGE COLUMNS 

DO 700 I = 1 , N 
L = N*l-I 

IF (INDX(Ltl) * EQ • INDX ( L * 2 M GO TO 
IROh = INCXILfll 
ICOL = INDX<1|2> 

DO 690 K=l,N 
SWAP - A { K f I ROW ) 

A(KflROk) = A I K , I COl ) 

AIK, I CQL ) = SWAP 
690 CCNTINUE 
700 CONTINUE 
GO TC 750 
720 DET = CO 
ISCALE = 0 
750 RETURN 
END 


FI. 3 L 2 1 
FI. 3 L 22 
F 1. 3 123 
FI. 3 124 
FI. 3 125 
FI. 3 126 
FI. 3 127 
FI. 3 128 
FI. 3 129 
FI. 3 130 

700 FI. 3 131 

FI. 3 132 
FI. 3 133 
FI. 3 134 
FI. 3 135 
FI. 3 136 
FI. 3 137 
FI. 3 138 
FI. 3 139 
FI. 3 140 
FI. 3 141 
FI. 3 142 
FI. 3 143 
F 1 . 3 144 
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Printing of Files Containing Calculated Results 
for Sample Case 

A printing of each BCD file for the sample case is given. The headings essentially 

give the quantities printed using the FORTRAN variable names as previously given. The 

files and their contents are as follows: 

File 

name Content 

OUTPUT case identification, date, and time only 

TAPE 11 printing of input data NAMELIST and the NPOS dimensional (1/sec) char- 
acteristic roots with Im(X) = 0 (NPOS = NTWO - NEGR + 1); velocity is 
printed followed by Re(X), SYMBOL, and Im(x) 

TAPE8 each characteristic root (with Im(x) = 0) and the corresponding eigen- 

vector is printed for every value of velocity 

TAPE30 velocity, trim angle of attack, and the aerodynamic coefficients about the 
center of mass 

TAPE31 dimensional tether derivatives or spring constants about the center of 

mass 

TAPE32 dimensional balloon position and tether conditions (note that CAB E'RAG = n) 

TAPE33 the uncoupled roots of the x-, z-, and 0-equations are calculated by 

factoring the diagonal quadratic factors of the stability determinant and 
are associated with the FORTRAN variable name UNCRT; both roots are 
printed (even if Im(x) < 0); the headings RLX1 and IMX1 denote the real 
and imaginary parts of the uncoupled roots associated with the x -equation, 
etc., where the letters X, Z, and T in the headings indicate x-, z-, 
and 0-equations, respectively 
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Listing of OUTPUT for sample case (identification card, and date and time only ) „ - 

LONGITUDINAL STABILITY OF TETHERED BALLOON - LPC BALLOON-REFERENCE CONFIGURATION il/20/72 09.56.5C. 

Listin g of tape II for sample case (principal file for characteristic roots ) . - 


JLONGDTA 


COINS 

- 

0. IE-01 , 

CLAD 

= 

0.39E-0 1 , 

CLOR 

= 

o. tesE + oc, 

CHACR 

= 

-Q.26E-Q1 » 

CHQR 


-0.1 89E ♦ C C i 

CELCC 

= 

Cl 

o 

DELCDA 


o 

o 

DELCL 

= 

0.0' 

DELCLA 

S 

0.0, 

OELCH 


0.0, 

DELCMA 

= 

0.0« 

cou 


o.o, 

CLU 


0.0, 

CHUR 


. 0.0, 

5 

= 

0.7C4E+01, 

CbAR 

= 

0.7tAE + 0l. 

YYOI 


0. L7 IE *0 3 i 

TMASS 


0. 1*2E + C2 

AX HAS S 

= 

0.5116 + 0 1, 

AZMASS 

= 

0.23^+02: 

UT S 

= 

0. 1C8E + 03, 

BUCY 

= 

0. 19E + C3 , 

BHR 


0.0 , 

BLP 

= 

C «2L5E+0li 

SHR 

= 

G.38E+00, 

SLR 

= 

-0 .E6E+00, 

CGH 


C. 1C9F+0C 

CGL 

= 

0 . 1 IE +0 1 , 

TLR 

= 

0.344E+C1 

TTF 

= 

0 .382E+01 

CL C 

= 

0.616+02, 

CD ] AH 

= 

0. 141E-01 

CDC 

= 

C . 1 17E+01 

*C 

= 

0 . 343E + 00 

RHO 


0.1225E +C 

VHI N 

= 

0. 1 E+Ol , 

CELV 


0. lE + Olt 

MV EL 


51 , 

*ENC 
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VELOCITY, l RE AL< ROOT ([11, I = l,NPOS) 
SYMBOL f ( I MAG ( ROOT ( [ ) ) t I -l , NPOS i 


1 .00000 

- 1 . 26 92 3 3E- 02 

-.107410 

-4 . 1 1 192 IE -02 



.238376 

.654283 

94. 1124 


2.00000 

-2.51 994 5E- 02 

-.216827 

— 7.993lo 7E-Q2 



.239258 

.887273 

23.7948 


3 • 00000 

-3 . 3 L 5002E-02 

-.329181 

114980 



.241742 

.937637 

10.6043 


4.00000 

-5.28L444E-02 

-.444374 

-.145607 



. 246732 

.999484 

6.29160 


5.00000 

-7 • 0543 34E-02 

562925 

-.170315 



.254093 

1.06604 

4.2331b 


6.00000 

-9 . 2464 1 7E- 02 

-.608306 

-.1B4629 



.266691 

l .12903 

3.13920 


7.00000 

-. 1 19482 

-.825481 

-.182608 



.282599 

1.17337 

2.505J7 


0.00000 

-.152479 

-.965647 

-.171834 



. 303351 

1.17850 

2.13300 


9.00000 

- * 1926 4 6 

-1.08371 

-.176679 



.330302 

1 .13870 

1.92081 


10.0000 

-.241991 

-1.16736 

-.206730 


CIRCLE 

.366181 

1.06449 

1.79732 


1 l .0000 

-.304131 

-1.21527 

-.25983b 



.417373 

.950124 

1 .72567 


L2.0000 

-.333470 

-1.22296 

-.336016 



.503816 

. 753418 

1 • 687o 6 


13.0000 

-1.23563 

-.432001 

- .43804* 



.299047 

.679145 

1.68394 


14.0000 

S06029 

-1.90890 

-.3540*9 

-.557382 


0. 

0. 

.83391 d 

1. 72691 

15.0000 

-.717823 

-2.28222 

- • 2 64B6 7 

-.667258 


0. 

0. 

.900994 

1 .81445 

16 . 0000 

-.694594 

-2.50532 

- . 197329 

-. 7 58069 


0. 

0. 

.951976 

1 . 92471 

17.0GCC 

-.695379 

-2 .85708 

- • 1 4699 a 

-.835324 


0. 

0. 

.984365 

2.0451* 

19.0C0C 

-.703337 

-3.11064 

-.107909 

-.904329 


0. 

0. 

1.01347 

17151 

L9.0000 

-.723525 

-3.35222 

-7.6254&4E-U2 

-.968251 


0. 

0. 

1 .04164 

2. 30225 

20.0000 

-.753431 

-3.56529 

— 4.97245 Gt- 02 

- L . C2892 

SCUAPE 

0. 

0. 

1.07045 

2.43669 

21-0000 

781609 

-3. H 1 199 

-2.6865aut-02 

-1 . C8745 


0. 

0. 

1.09967 

2. 57437 

22.0000 

-.812151 

-4.03376 

-6.74031 6t-03 

-1 . 14452 


0. 

0. 

1 . L29oO 

2 • 7 L 495 

23.0000 

-.344451 

-4.25159 

1. 13049 It “ 02 

-1 . 20057 


0. 

0. 

1 . 16027 

2. 85814 

24.0000 

-.073DB9 

-4.46621 

2.77 199bL-0z 

- 1 . 25592 


0. 

0. 

1. 19 16 5 

3 . 00367 

25.000C 

-.912761 

-4.67817 

4.26331 rt-02 

-1.31075 


0. 

0. 

1.223&S 

3. 15128 

26.0000 

- .9432*2 

-4.88792 

5.68 88 7 4c -02 

-1 . 36523 


0. 

0. 

1.25634 

3 . 30075 



[ 


I 


27.0000 

-.984363 

-5.09577 

7.007230E-02 

-1.4 1944 


0 . 

0 . 

1.28954 

3.45187 

28.0000 

- 1 .02099 

-5.30202 

8.252779E-02 

-1.47346 


0 . 

0 . 

1.32324 

3.60444 

29*0000 

-1.05803 

-5.5068S 

9.436369E-02 

-l . 52734 


0 . 

0 . 

1.35739 

3. 75828 

30.0000 

-1.09540 

-5.71054 

• 1 0566 o 

-1. 58112 

0 [ AMCND 

0 . 

0 . 

1.39196 

3. 91325 

31.0000 

-1.13304 

-5.91315 

.116553 

-1.63404 


0 . 

0 . 

1.42691 

4,06919 

32.0000 

-1. 17039 

-6.11435 

.127030 

-1 .68850 


0 . 

0 . 

1.46220 

4.22598 

33.0000 

-1.20092 

-6.31574 

.137107 

-1.74213 


0 . 

0 . 

1 . 49760 

4.38350 

34.0000 

-1.24709 

-6.51593 

.147037 

-1.79574 


0 . 

0 . 

1. 533&8 

4. 54166 

35.0000 

-1.28536 

-6.7L545 

. 156534 

-1. 84933 


0 . 

0 . 

1.56932 

4.70035 

36.0000 

-1.32376 

-6.91450 

.165928 

-1.90291 


0 . 

0 . 

1.60621 

4.85950 

37.0OC0 

-1.36222 

-7.11301 

.175064 

-l .95649 


0 . 

0 . 

1.64281 

5.01904 

38.0000 

-1.40074 

-7.31108 

. 184016 

—2 . 0 LOO 7 


0 . 

0 . 

1.679&C 

5. 17891 

34.0000 

-1.43931 

-7.50876 

.192802 

-2. C6364 


0 . 

0 . 

1.71661 

5.33904 

40.0000 

-1.47792 

-7.70609 

.201436 

-2. L 1 722 

TP [ANGLE 

0 . 

0 . 

1 • 7 53 7 d 

5 . 49939 

41 .000C 

-1. 51656 

-7.90310 

.209939 

-2. 17080 


0 . 

0 . 

1.79111 

5.65992 

42.0000 

-1. 55523 

- 8.09983 

.21831 7 

-2.22438 


0 . 

0 . 

1.82358 

5. 82059 

43.0000 

-1.5939 L 

-8.29630 

.226504 

-2. 27797 


0 . 

- 0. 

1 .86620 

5.98136 

44.0000 

-1.63261 

-8.49254 

.234750 

-2.33156 


0 . 

0 . 

1.90394 

6. 14221 

*45.00 00 

-1.67132 

-0.68857 

.242822 

-2.38515 


0 . 

0. 

1.94161 

6.30311 

46 . 0000 

-1.71003 

-3.88442 

.250810 

-2.43874 


0 . 

0 . 

1 .97975 

6 . 46404 

47.0000 

-1.74375 

-9.08009 

.258720 

-2. 49234 


0 . 

0 • 

2.01768 

6.62497 

48 . 0000 

-1.78747 

-9.2756 1 

■ 2 66 5 5 d 

-2. 54594 


0 . 

0 . 

2.05606 

6.78590 

49 ■ 000 C 

-1.82619 

-9.47090 

.274330 

-2.59954 


0 . 

0 . 

2.09434 

o • 54680 

50.0000 

- 1. 6o49 1 

-9.66623 

.262040 

-2.65315 

PT TFNGL 

0 . 

0. 

2.13270 

7. 10767 

51.0000 

- 1.90362 

-9.66136 

. 239t94 

-2. 70675 


0 . 

0 . 

2.17115 

7. 26849 
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Listing of taae 8 for sample case (modal ratios or eigenvectors and characteristic root s) 


LONG ITJJ[ SAL 

STAdlLITY CF 

TETHERED 

L LC0N - IRC SALLDDN-RtFtRc^Cc CONFIGURATION 11/20/72 

C9.56. 5C. 



COMPLEX Rn n T 

-R 6AL . ['•AG 

EIGENVECTORS 
X/THETA.R/ DEG- REAL, [HAG 

Z/THET A,H/nEG-REAL. I"AC 

THETA, 

DEG-Rt AL , [ M AC 

yelccity= 

i .ocoo 

-1.26423E-02 

.23036 

-1.5443 

.14418 

6. 27094F-02 

-I.20755E-C3 

1.0000 

0. 


1074 L 

. 6542“ 

5. 36335E-03 

- 2 • 26555b -03 

4.97133E-02 

l. 87209 F.-05 

1 .00 0 0 

0 . 


-4. Ill 92E-02 

94.112 

- 4. 08 401 E-C 4 

4,10936c-O6 

-2.4 5945 E-02 

1.13327F-04 

l.OOCC 

0. 

Vt ICC I TY = 

2 .0000 

-2. 5199 5c- 02 

.23926 

-1.5469 

.23647 

9.VU583E-02 

-7.72946E-03 

I.OOC0 

0- 


-.2160 3 

.06727 

6.99266F-03 

-5.2520Gc-C3 

t. oOS o Qc-02 

1.63 L6cE-04 

1.0000 

0. 


-7.993L-7E-C2 

23.795 

- 1 .64 1 00E-03 

5.610LOc-O5 

-2-52525E-02 

9* 0396 IE — 04 

1 . oooo 

0. 

V£LCCITY= 

3.COOO 

-3.5150 0E- 02 

. 24174 

-1.5725 

.25923 

. 15826 

-1.03395 E-02 

l.OOCO 

0. 


3291 6 

• 93764 

7.37272E-03 

— 8.5 5390t -03 

4.5791 7 E— 02 

5.3763BE-04 

L. OOCO 

0. 


-. LL499 

10.8 04 

- 3 . 68 0 46 E-03 

3 . 124 46c “04 

-2.60716 E-02 

3 . 029 376-03 

1. OOCC 

0. 

VELHCI TY= 

4.COOO 

-5.2ol44E-02 

.24673 

-1.5974 

.21878 

• 2 372 1 

-2. 6L859E-02 

1.0000 

0. 


-.*443 7 

.99948 

6.55074E-03 

-1 .13 3 70fc— 02 

*. 3*3 5 5E- 32 

1. 06 14BE- 03 

1. COCO 

0. 


14561 

6.2916 

-6. 3 7539E- 03 

1. 12358E-U3 

-2 « 6 5 5 5 4 E-02 

7.08613E-03 

l.COCO 

0- 

VEL DC I TY = 

5.CC00 

-7.0543 3 E- 02 

.25489 

-1.5634 

.13743 

. 32551 

- 2 .449 04 E-02 

1.0000 

0. 


-.5^292 

1.0660 

4 . 6 0497 F —03 

-1.31 340t-o2 

4. 12J72E-02 

1.38689E — 03 

l.OOCC 

0- 


-.17032 

4.2332 

-9* 30120E-0 3 

3.0T263E-03 

-2-3 9 7a 2 F-0 2 

L .35 790E-O2 

1.0000 

0. 

VELDC I T Y= 

t .ccoo 

-9.24642E-02 

. 26 669 

-1.5226 

5.06467E-02 

• *0636 

-1.35495E-02 

L.OOCO 

0. 


-.60331 

l . 1290 

1. 53592E-03 

- 1 .36392C-02 

3.90377E-D2 

0. 7513 LE-04 

l.OOCO 

0. 


-.18463 

3. 1392 

- 1. 1654BE-02 

6 . 93890E.-J3 

-2.j5o29F-02 

2.30076E-02 

1.0000 

0. 

VELOC tTY= 

7 , GO JO 

--1LS43 

.28260 

-1.4053 

-1.05304c, -02 

.46543 

-1.62 59BE-03 

1.0000 

0. 


-.62548 

1 . 1 7 39 

-2.93894E-03 

-1 .3579dc-02 

3.66239F-02 

-1.500C6F-03 

i.ooco 

0. 


-. 19261 

2.5051 

-L. 225986-02 

1 .40914E-U2 

-L.0S041E-O2 

3.614L9E-02 

1.0000 

0. 

VELCC ITY= 

6.0000 

-.15246 

.30335 

-1.2582 

-3.53007E-02 

. *9t 94 

2.C6 I01E-03 

l.OOOC 

0. 


-.96565 

1. 1706 

-S.00665E-03 

-L .2650*t-U2 

3.‘t5J74E-02 

-6.69443E-03 

l.OOCC 

0- 


-.17133 

2.1331 

—9. 83434F-33 

2.62 502E-G2 

-I. 30*170-02 

5. 3791 5F-02 

1.0000 

0. 

VF LCC I T Y= 

9.0000 

-.19265 

. 33030 

- 1 . 05 99 

-2.93143c-02 

.50118 

-6.89017E-03 

1.0000 

0. 


-1.0937 

1. L 307 

-1.644L3E-G2 

- 1.07 12 3E-02 

3.32430F-02 

-L.45352F-02 

1.0000 

0. 



L ■ 9200 

-2.72283E-03 

4. 57690E-02 

-6. 7O130E-03 

7.61 096E-02 

l.oono 

0- 

V£CCCITY= 

10.000 CIRCLE 

-.24199 .36616 

-.93041 

-6.19789E-0J 

.47926 

— 2.780Q4 E-02 

1.0000 

o. 


-1.1674 

1.0645 

-2. 52 301 E-02 

-6.09529E-0J 

3.20354 E“02 

-2.49462E-02 

1.0000 

0. 


-.206 73 

1.7973 

1 . 3046OE-O? 

7.56449E-02 

9.4931 IE-04 

. 10455 

l.OOCO 

0. 

VE LCC 1 TY = 

1 1 .000 
-.30413 

.41733 

-.77120 

2.21511E-J2 

• *2a 9 6 

-5.5B109E-0? 

l.OOCO 

0. 


-1.2153 

. 95012 

-3. 55553E-02 

5 . 1 5459l -03 

2. d60OOE“O2 

-3.99C44E-C2 

1.0000 

0. 


-.25904 

1.7257 

5. 53235E-02 

.12079 

1.51544F-02 

. 14489 

l.OOCO 

c. 

VELOCITY^ 

1 2 .030 
-.30347 

.50382 

—.58687 

3 . L4933E-J2 

. 341b l 

-7. 57850 F- 0 2 

l.OCCG 

0. 


-1.2230 

.7524 2 

-4. 16676E- 02 

3. 53035E-04 

1.C3240E-02 

-6.56029E-02 

l.OOOC 

0. 


-.33602 

1 .6379 

.17345 

.16257 

6. J2657E-02 

.23517 

L. 00 OC 

0. 
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VELOCITY- 

13.000 

-1.2356 

. 29985 

4, 513L0E-02 


-.*3200 

■ 6 79 1* 

-.41369 


- .43805 

1 . 6 3 39 

.35173 

VcLOCI TY= 

14.000 

-.80603 

0. 

1.3383 


-1.9089 

0 . 

l. 50376E-02 


- .35407 

.83382 

-.35015 


-.55738 

1.7269 

.22511 

VELOCITY* 

15.000 

-.71732 

0. 

-16.511 


-2.2822 

0 . 

5.85532E-03 


-.26487 

. 90899 

-.31905 


-.66726 

1.9144 

.13159 


8.20L67E-02 

-7. 76739E-02 

-8.56335E-02 

1.0000 

0. 

4. 1697 0E- 02 

- 23329 

-3. 81 84 IE- 02 

1.0000 

0. 

1.07O3OE-O3 

.20140 

.19495 

1.0000 

0. 


0. 

- L .2739 

0. 

1 ■ 0000 

0. 

0. 

-3. 349290-02 

0. 

1.00C0 

0. 

-.12989 

•18012 

2. 85098 E- 02 

1.0000 

0. 

-.17363 

.2122 7 

7. 53582 E— 02 

1.0000 

0. 


0. 

15.529 

0. 

1.0000 

0. 

0. 

-2.05655 E-02 

0 ♦ 

1.0000 

0. 

- .17154 

.15219 

7.8B962F-02 

l. ooco 

0. 

16579 

. L7234 

4. 30847 E- 02 

1.0000 

0. 


VE LCC I T Y = 

16. COO 
-.69459 

0. 

-2.8222 

0 


-2 • 5 65 3 

0. 

2.29792E-03 

0 


-.19733 

. 95196 

-.29249 

- 


-.75807 

1.9247 

9,67 2 09 E-02 

- 

VEL GC I T Y* 

17.000 

-.69538 

0. 

-1.9239 

0 


-2.8571 

0. 

3. 6244BE-C4 

0 


-.14700 

.98437 

'.26891 

- 


-.83532 

2.0452 

6. 1 0235 E -02 

- 

velocity* 

16. COO 
-.70334 

0. 

-L.57B2 

0 


-3.1LG6 

0. 

-6. 77895E-04 

0 


-. 1079 l 

1 .0135 

-.24840 

- 


-.90433 

2.1715 

7.26327E-02 

- 

VELGCITY* 

IS. GOO 
-.72652 

0. 

-L.3869 

Q 


-3.3522 

0. 

-1. 75685E-03 

0 


-7.n254 7E-02 

L -04 18 

-.23068 

- 


- .9682 5 

2.3023 

6. 762C8E-02 

- 

VELCC ity = 

2C.C00 

-.75343 

SQUARE 

0. 

-L.26L7 

0 


-3.5653 

0. 

-2.42408E-03 

0 


-4.S7245E-02 

1.0705 

-.21539 

- 


-1.0289 

2.4367 

6.44029E-02 

- 



2.7113 

0. 

1.0000 

0. 


-1.51079 E-02 

0. 

i.ooco 

0. 

19333 

• 13420 

.11744 

1.0000 

0. 

14569 

•15050 

3.666L3E-02 

1,0000 

0. 



L.90U5 

0. 

1.0000 

0. 


-1 .204666-02 

0. 

l. 0000 

0. 

20691 

• 12105 

. L4737 

I.OOCO 

0. 

13225 

.13791 

3 • 51906E- 02 

1.0000 

0. 



1.6038 

0. 

1.0000 

0. 


- 1 • 009 5 2 E-02 

0. 

1.0000 

0. 

21600 

. L1051 

.17116 

L • 0000 

0. 

12309 

.12961 

3.49751E-C2 

I.OOCO 

0. 



L.4479 

0. 

1.0000 

0. 


-3. 75710 E- 03 

0. 

L • 00 00 

0 . 

22233 

.10162 

.19050 

1. OOCO 

0. 

11663 

.12356 

3 . 5 1 38 4 E- 02 

I.OOCO 

0. 



1.3505 

0. 

1.0000 

0 . 


-7. 79584 E— 03 

c. 

1.0000 

0. 

22678 

9.38913E-02 

.20651 

1.0000 

0. 

1 1 L 84 

■11654 

3. 54113E-02 

I.OOCO 

0. 


VE LCC I T Y = 2 L .000 


-.76161 

0. 

-I. 1716 

0. 

1.2833 

0. 

l. 0000 

-3.6120 

0. 

-2.95640E-03 

0. 

-7. 08316 E— 03 

0. 

1.0000 

2.ta66SE-02 

L .0997 

202 L 5 

-.22993 

8.707 15E-02 

.21996 

L. OOCO 

- 1.0374 

2.5744 

6.22336E-02 

10612 

.11496 

3 . 56973 E- 02 

UOOGO 


0. 
0 . 
0. 
0. 


VELOCITY* 22.000 


-.61215 

◦ . 

-1.1026 

0. 

1.2336 

0. 

1.0000 

-4.0338 

C. 

-3. 397106-03 

0. 

-6. 5*293 E— 03 

0. 

l.OOOC 

6.740320-03 

L. 1296 

-. 19064 

- « 232 L 4 

6.U9956E-0Z 

.23145 

l.onoo 

- L. 1445 

2.7149 

6.07200E-02 

10514 

.11167 

3.59602E-02 

I.OOCO 


0 . 
0. 
0. 
0. 


VELCC I TY = 

23.000 

94445 

0. 

-1.0481 

0. 


-■i.25 16 

◦ . 

-3. 77233E-03 

0. 


L.13049E-02 

1. 1603 

-.16058 

-.23367 


- 1. 2006 

2.85ei 

5. 963 7 5E- 02 

- .10268 


i .1952 

0. 

1.0000 

c.. 12C07E-O3 

0. 

1.0000 

7.55502E-02 

.24131 

1.0000 

. 1088 l 

3 . 6 i 8 73 E-02 

I.OOCO 


VELCC ITY= 

2 4 .000 
-.c7609 

0. 

-1.0034 

0. 

1. lo*4 

0. 

1.0000 


-4.4662 

0. 

-4.09675E-C3 

0- 

-5 • b02 7 8 E-03 

0. 

1. COOO 


2. 77200E-02 

1 . 19 17 

-.17176 

-.23471 

7. Qo4 9 7 E-02 

■24986 

l.QQOO 


-1.2559 

3 .0037 

5.8849LE-02 

-.10063 

. 10628 

3.63759=- Q? 

1.0003 


0. 

0. 

0 . 

0 . 


VELOCITY* 25.000 


- .912 76 

0. 

-.96606 

0. 

1-1391 

0. 

1.0000 

-4.6762 

0. 

-*. 3B746E-03 

0. 

-5.3*83 2 E-03 

0. 

. 1. 0000 

4.283320-02 

1.2 237 

-. 16398 

-.23533 

6.62223 E— 02 

.25734 

1. 0000 

-1.3109 

3.1513 

5.92674E-02 

-9.80 L30C-J2 

. 10401 

3.65276E-02 

1 .0000 


0 . 

0. 

0. 

0 . 
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VELOCITr= 

26 .000 
-.94824 

0 . 

-.93440 


-4.8879 

0. 

-4.64613E-C3 


5.6S087E-G2 

1.2563 

-.15709 


- 1. 3 852 

3.3008 

5.78 342E-02 

VELOCITY= 

27.000 

-.98436 

0. 

-.90716 


-5.095e 

0. 

-4.66025E-Q3 


7 .007 23E-02 

1.2895 

-. 15C96 


-1.4194 

3.4519 

5. 75095E-02 

VELCCITY* 

2 e .coo 
-1.0210 

0. 

-.88350 


-5.302C 

0. 

- 5.09335E-C3 


8.252 78E-02 

1.3232 

-.14549 


-1.4735 

3.6044 

5.72655E-C2 

VlLCC I Ty= 

2 9. C0C 
- 1 . 05 8 C 

0. 

-.86275 


- 5 . 50c 9 

0. 

- 5. 28997 E- 03 


9.43687E-02 

L.3574 

-.14060 


-1.5273 

3 . 7593 

5.70320E -02 

VE L GC 1 T Y = 

30.000 

DI AMCN0 



-1.0954 

0. 

-.94443 


-5.71C5 

0. 

-5. 47097E-03 


.10569 

1 . 3920 

-.13619 


- 1. 5611 

3.9132 

5.69445E-02 

VELCCITY- 

31.000 
-1. 1330 

0. 

-.92814 


-5.913L 

0. 

- 5 . 63 8 71 E- 03 


.11655 

L • 4269 

13222 


-1.6346 

4.0692 

5.68422E-02 

Vt locity = 

32.000 

-1.1709 

0. 

-.81358 


-6.1148 

0. 

- 5. 79471E-03 


.12703 

1.4622 

-.12963 


-1 .6665 

4.2260 

5.67669E-02 

VELOC I T Y = 

33.000 
-1 .2039 

0. 

-.60049 


-6.315 7 

0. 

-5.94020E-03 


- L37 L 7 

1.4978 

-.12537 


-1.7421 

4.3835 

5.67 126E-02 

VELCC ITY = 

34 .000 
- 1-2471 

0. 

-.76969 


-6.5159 

0. 

-6.07622E-03 


.14701 

1.5337 _ 

-.12240 


- 1.79 5 7 

4.5417 

5. 66 746E-02 

VELOC I TY= 

3 5 .000 
-1.2&54 

0. 

-.77799 


-6. 7155 

0. 

-6. 20365E-03 


• L 56 5 6 

1.5&96 

11969 


-L .849 3 

4.7003 

5.66492E-02 

VELCCITY^ 

36.000 
- 1.3239 

0. 

-.76826 


-6.9 145 

0. 

-6. 32 325E- 03 


.16593 

L .6062 

-.11722 


- 1.9029 

4.6595 

5.66 333F-02 

VE LCC T T Y = 

37.000 
- L.362 2 

0. 

75937 


-7. L L 30 

0. 

— 6 . 43 568£- 03 


. 17506 

1 .6428 

11495 


- L.9S=>5 

5 . 0 L 90 

5.66260E-C2 

VE LCCI ry= 

36.000 

-1.4007 

0. 

-.75124 


-7.311 1 

0. 

-6.54 152E-03 


.16402 

L .6796 

1 L 286 


-2.010 L 

5.1789 

5.66243E-C2 


0 . 

1.1180 

0. 

1.0000 

0. 

-5.34751 £-03 

0. 

1.0000 

-.23578 

6.22I39E-02 

.26392 

1.0000 

-9.72522E-02 

. L01 96 

3.66467E-02 

1.00GO 


0. 

1.1000 

0. 

1.0000 

0. 

-5. L8860E-03 

0. 

1.0000 

-.23597 

5.85749E-Q2 

.26974 

1.0000 

-9 . 5871 5c— 02 

.10009 

3. 67366E-02 

1.0000 


0. 

1.0845 

0. 

1.0000 

0. 

-5.062 79 E-03 

0. 

1.0000 

-.23602 

5.52639E-02 

.27493 

1.0000 

-9 . 46 30 3 1 -02 

9.63791 E-02. . 

3.68018 E-02 

1.Q0C0 


C. 

1.0710 

0. 

L . 00 00 

0. 

-4 . 9633 6E-03 

0. 

1.0000 

-.23597 

5.2 2446 E-02 

.27957 

1.0000 

-9,352 B0E -02 

9. o 6079 E— 02 

3.68460E-O2 

1.0000 


0. 

1.0591 

0. 

1.0000 

0. 

-4 .8851 0 E-03 

0. 

1.0000 

-.23583 

4 . 9405 7 E-02 

.28373 

1.0000 

-9.25213E-02 

9.5 3592 6-02 

3.68 7 26E-02 

1.0000 


0. 

1 . 0467 

0. 

l .0000 

0 • 

-4. 8 2 39 5 E-03 

0. 

1.00CC 

-.23563 

4.69595 E-02 

.28749 

1.0000 

-9. 16035E-O2 

9.40198 E _ 02 

3.68848E-02 

1 . ooco 


0 . 

1.0393 

0. 

L. 0000 

0. 

-4. 77667E-03 

0. 

1.0000 

-.23540 

4.4641 7E-02 

.29090 

1. 0000 

-9.07627E-02 

9.27789 E-02 

3.68650E-02 

1.0000 


0 

. 

1.0310 

0. 

1.0000 

0 

. 

-4. 74070 F- 03 

0. 

l.OCCO 

- 

.23513 

4 . 5 L 1 2 c -02 

.29399 

1.0000 

-8 

-99893E-02 

9. L62b5E-02 

3.68756E-02 

l.OOCO 


0 . 

1.0235 

0. 

1.0000 

0. 

—4 • 713 96 E— 03 

0. 

1.0000 

-.23465 

4.0549 IE-02 

.29681 

1.000C 

-8.92754E-D2 

9.0554? E-02 

3 . 68 53 3 E-02 

l.OOCO 


0. 

1 . Glo 7 

0. 

1.0000 

0. 

-4. 6 94 77 E-03 

0. 

1.0000 

-.23456 

3.8736 9 E-02 

.29939 

1.0000 

-e .86 14 5 E— 02 

9.95 56 2E-02 

3.68347E-02 

i.0000 


0 . 

l .0L05 

0. 

1 . ocoo 

0. 

-4. ool 77 F-03 

0. 

1.0000 

- .23426 

3 . 70655 E-02 

.30175 

1.0000 

-6. 80009n-02 

d. 96247 F-02 

3.68 06 2E— 02 

1.0000 


0. 

1 

. 0049 

0. 

1. oooo 

0. 

— 4. 

o7364 F-03 

0. 

l. oooo 

-.23396 

3. 

55162 E-02 

.3039? 

I . oooo 

-8.74300E-U2 

b . 

77544F-02 

3. 67 739E- 02 

l.OOCC 


0. 

.99971 

0. 

1.0000 

0. 

-4. &7007 t-03 

0. 

l .0000 

-.23367 

3.40794E-02 

.30593 

1 ♦ 00 00 

-8.69976E-02 

d . 6 9403 E-02 

3.67386 E-02 

1.0000 
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I 


I 


VEL.X 1 T Y = 

3 5. COO 
- L .43 <53 

0. 

-.79379 

0, 

. 5 y5 0 0 

C. 

1. OCCO 


- 7 . 5 0 t 8 

0. 

—6. 6912SE— C3 

0. 

06969 E-03 

0. 

1.0000 


.15200 

L • 7 1 66 

-.1 1C53 

-.23337 

3.274*76—02 

. 30776 

l.oono 


- 2 . Oo 3 6 

5.3390 

5.66273E-02 

-8 .64002E-02 

8.61778 £-02 

3.67012E-02 

1.0000 

VELOCITY* 

4C .000 
- 1.4775 

T»1 A *> GL? 
0. 

-.73691 

0. 

• 9 50a6 

0. 

L • 0000 


-7 ,70t I 

0. 

-6. 73552E-03 

3. 

-*. O7208E-C3 

0. 

l. oooo 


• 20 14* 

L. 7538 

-.10916 

-.23309 

3. 150290-02 

.30549 

l.OOCO 


-2.1172 

5.9559 

5. 66 338E-0 2 

-8. 55347t-02 

b. 5~,cj2 8E-02 

3.£6£22 c -02 

l.oooo 

vEinc J TY= 

4 1 . uGu 
-1.516o 

0 . 

-.73057 

0. 

• 9 d 6 6 6 

0. 

L.OOCO 


- 7.5031 

0. 

-fc. 02935E-C3 

0. 

-*.67673 E— 0 3 

0. 

1.3000 


• 205 9 * 

1.7911 

L 07 52 

-.23201 

3. 03457E-02 

.31100 

1.0000 


- 2 • 1 7 G d 

5.6595 

5.66932E-02 

— 8. 5493 3E— 02 

b.4 7915 E-02 

3. 66222E-Q2 

1. oooo 

VELCCI TY= 

42.00C 
- L . 5 5 5 2 

0. 

-.72971 

0. 

.98257 

0. 

l.OOCO 


-8.0996 

0. 

- c ■ 90 895E-0 3 

0. 

-4. c d32 0 F— 03 

0. 

1.0000 


• 21 b 3 2 

i . 8 2o6 

-. 1 0599 

-.23259 

426596-02 

.31256 

l.OOCO 


-2.2244 

5.8206 

5.665*76-02 

-9. 508 86 E — Oi 

b. -tl c u7 E- 02 

3.6581 e F-0 2 

1.0000 

VELCC ITY = 

43.000 

-1.5939 

0. 

-.71928 

0. 

.57955 

0. 

i. oooo 


-d.2963 

0. 

-6.5SB05E-C3 

0. 

-4.65114E-03 

0. 

woooo 


-22t 5 8 

L .36 62 

L 045 B 

-.23228 

2. 62 5 1 6 F-02 

. 3 L 394 

l.OOCO 


- 2. 2 7 d C 

5.5819 

5.66677c— 02 

-9.47O35t-02 

o. *5672F-02 

3. 654 C0 E-02 

L.OOCC 

VELOCITY* 

4 * . C 0 C 
-1.6326 

0 . 

7L423 

0. 

.57637 

0. 

l.OOQQ 


-8. *925 

0. 

-7.06 346 E -0 3 

0. 

-4. 70025E-03 

0. 

l.OOCO 


.23975 

1.9039 

-.10326 

-.23202 

2. 731255-02 

.31522 

1.0000 


-2.33 L6 

6 .1922 

5.66819E-02 

-8.434l0t-u2 

8 . 30 Jo 3 E-02 

3.65 0 00E- 02 

1. OCCO 

VELOCITY* 

95.000 
- L.67 L3 

0. 

-.70553 

0. 

.573*2 

C. 

1. oooo 


-0.6386 

o. 

-7, 13496E-C3 

0. 

-n. 71 02 7 6-03 

0. 

1.0000 


.29262 

L .9912 

10204 

-.23173 

2 ■ 64276 E-02 

.31642 

1.0000 


-2. 3351 

6.3031 

5 • 66569E - 02 

-0.39593=-J^ 

o. 24ril5F-02 

3. 64594E- 02 

l . 00 00 

VELOCITY* 

46. COO 
-1.7100 

0. 

-.70515 

0. 

. 9706 7 

0. 

1.0000 


-8.8399 

0. 

-7.20281E-C3 

Q . 

-4. 72101E-03 

0. 

1. oooc 


.2500 1 

1 .5798 

-.10090 

-.23154 

2.55974 E-02 

.31754 

1.0000 


-2.9387 

o .9690 

5.67125F-02 

- d • 36 7 70c-02 

o. 148* 4E— 0 2 

3. 64193F-02 

1 . oocc 

VE LCC I T Y = 

9 7 .000 
-1.7988 

0. 

-.70107 

0 . 

• 9 0 d 1 3 

0. 

1 . ooco 


— 9.0B0 1 

0. 

-7.26724E-C3 

0. 

— 4 ■ 73228 E - 03 

0. 

1,0000 


.25872 

2.0179 

-9. 9 6275 E— 02 

-.23132 

2 • *8 1 7 5 E- 02 

. 31860 

L.COOG 


-2.9923 

6 .6250 

5. 67284E-02 

-3.33725E-02 

d. 15L48E-02 

3. 63797 E-02 

1.0000 

VELOC ITY = 

98. COO 
-1.7875 

0 . 

-.69724 

0 • 

• .9to70 

0. 

l. oooo 


-9.2756 

0. 

-7.32 347 E- 03 

0 . 

-4. 74395 E- 0 3- 

0. 

1. oooo 


.26656 

2.0561 

— 5.8 92 72 E- 02 

-.23110 

2.40840 E-0 2 

.31958 

1.0000 


-2. 5959 

6.7359 

5 ■ 67445E-02 

-8.3094 6E-U2 

8 - 10710 E— 02 

3. 634C5E-0? 

l.OOOC 

VELOCITY* 

95.000 

-1.8262 

0. 

-.69366 

0 . 

.963*5 

0. 

1.0000 


-9. 9710 

0. 

- 7. 3 9671E-C3 

0. 

-*♦. 7 :>5 85 E-03 

0. 

1.0000 


.27933 

2.0993 

-9. 78996 F-02 

- .23085 

2. 33933 E-02 

.3205 1 

1 . ooco 


-2.5955 

6.5963 

5.67&06E-02 

-6.28121 c-02 

8 • 06 510 E-02 

3.63028E-0 2 

l.OOCO 

VELOC ITY = 

5 C • 000 
-1.8699 

8T TRNOL 

0. 

—.69030 

0. 

. 46134 

C. 

1.0000 


-5.6662 

0. 

-7. 44 213 E— 03 

0. 

-*.76001 E-03 

0. 

L. OOOO 


.28209 

2. 1327 

-5. 70055E-02 

-.23069 

2.27422E-02 

.32139 

L • OOOO 


-2.653 l 

7 . L 077 

5.6 7766E — 02 

-8.2 5540c -02 

0. J2533E-02 

3.62656E-02 

1 . coco 

VELOCITY* 

51.000 
- 1 *90 36 

0. 

-.68714 

0. 

.95935 

0. 

l.OOCO 


-5.86L9 

0. 

- 7. 49491 E- 03 

0. 

-4. 7 802 2 E-03 

C. 

1.0000 


.28965 

2.1712 

-9.6 1 823E-Q2 

- .23050 

2.2127SE-02 

.32221 

1. oooo 


-2.7068 

7.2665 

5.67925E-02 

-8. 23092c-02 

7.987646-02 

3.62292E-02 

1.0000 


0. 
0. 
0 . 
0. 


0. 

0. 

0 . 

0 , 


0 . 

0 . 

0. 

0. 


0. 
0 . 
0. 
0. 


0. 
0. 
0 . 
0. 


0. 

0. 

0. 

0. 
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CD 


Listing of tape 3D for sample case (trim angle pf attack and aerod/namtc coefficients ).- 

LUNG ITUOlNAl STABILITY UE T F THF c !"U WALLOON - LKL BALL CPN-REF UcNL b LUNE I GLJRAT 1 ON 11/20/72 OS. 56 . 50. 


M ROD YNAM I C COEFFICIENTS 


VFLGCI TY 

AL D HA 0 

CO 

CL CM 

CO A 

CLA 

CM A 

CLQ 

CM AO CMQ 

1 .000 

8. 7bT 

5.S5S9E-02 

9 . S 7 06E -02-3 .4 37 2E-03 

4. L442E-02 

.7244 

3.213ZE-02 

. 0974 

-3.08 58E-02 -.2788 

2.000 

8. 560 

5. 9453E-02 

4.6972F-02-3. 5596C-03 

3 . 5 7Sdfc -02 

.7213 

3.2572E-02 

.8963 

-3 . 88 61E-02 -.2787 

3.000 

8.250 

5.9284002 

9. 32 05E -02-3. 7310F-03 

2 . bStbc— 02 

.7108 

3. 29O0E-O2 

. 0952 

-3.3864F-02 -.2786 

4.000 

7.923 

5.9137E-02 

8. 9 L Qf>r -02-3.9L91E-03 

2.27:>Jt-0Z 

• 7 L B 1 

3.2957E-02 

.0947 

-3. 86676-02 -.2766 

5.000 

7.60 9 

5.9026 b-02 

8. 5 U1E-02-4.099&E-03 

L. 782:>fc-Oc 

. 7193 

3.2733E-02 

.8947 

-3.8869E-02 -.2787 

6.000 

7.32 7 

5 . 8945E-02 

H. 162 4E-02-4.2 594E-03 

1 . 4 lo Lh— 02 

.72 16 

3.2 340E-02 

. 095 1 

-3.88716-02 -.2788 

7.000 

7.0H6 

5.8H94E-02 

7. 8 580F-02-4.3946F-03 

1-1 554l-02 

. 7245 

3. 1880E-02 

.0957 

-3.98 73E-02 -. 2789 

a. ooo 

6.B84 

5 . 8 ti 56 E-02 

7.60 L6t -02-4 . 50645-03 

9 .6647t-03 

. 7 2 74 

3. 1 41SE-02 

. 8964 

-3.8874E-02 -.2791 

9.000 

6.716 

5. 0830 F -02 

7. 3882E-02-4. 5578F-03 

8.2928E-03 

. 7301 

3.0991E-02 

. 09 70 

— 3 • 08 75F-02 -.2792 

LU.OQ 

6.577 

5. 88 11E-0? 

7 . 2 L lOf-02— 4 .6724E-03 

7.2 80 Jl-03 

.7326 

3 . 061 OF- 02 

- 8976 

-3.8075E-O2 -.2793 

11.00 

6.46 2 

5.87 96E.-02 

7- 0640E-Q2-4 . 7 335E--03 

6.5 194E-05 

.7347 

3.Q279E-02 

• 09 R2 

-3.98766-02 -.2794 

12.00 

c.367 

5.8/87E.-02 

t .9415E-02-4. 7836E-03 

5- 9itot-03 

. 73 66 

2 .9993E-02 

.8986 

-3.08 76E-02 -.2795 

13.00 

6.267 

5. «7 79E-02 

fc. 83 89E- 02-4. 0252 E-03 

5.4029t~O3 

.7382 

2.9748E-02 

. 8990 

-3.88766-02 -.2795 

14.00 

6.220 

5.87 73L-02 

6. 7 526L-Q2— 4 • B598E-03 

5.1 234l— 03 

. 7395 

2.9533E-02 

.0994 

—3 . 96 76E-02 -.2796 

15.00 

6.164 

5. 87686-02 

6.6795 E-02-4 .0089 E-03 

4.8 344 1 —03 

.7407 

2.9358F-02 

. 0997 

— 3*86 76E-02 -.2796 

16.00 

6.115 

5.87 64C-U2 

6.6172E-02-4.9135E-03 

4. 598aE'U3 

.7417 

2.9203E-02 

.8999 

-3.8R76E-02 -.2797 

17.00 

t . 0 7 4 

5.8761E-02 

t. 56 38E -02-4 .9346 F-03 

4.4045E-03 

.7426 

2.9069E-02 

.9002 

-3.BBT7E-02 -.2797 

L0.QO 

6.034 

5.0 7 5 0F - 02 

6.5177E-02-4.95?5E-03 

4.24cSt-03 

.7 434 

2.B952E-02 

.5004 

-3.B877F-02 -.2797 

19.00 

t. oo a 

5. 67 5t t-02 

6 . 4777F-02-4 ,9ta0E-03 

4. 1 Ut0L-03 

. 7440 

?• 805 IE- 02 

. 5005 

—3 .86 77E-02 -.2798 

20.00 

5.98 1 

5.0754E-O2 

6. 4429F-02-4. 98156-03 

3.9 d991 “03 

.74 46 

2-8 762E-02 

.5007 

-3.0877E-O2 -.2798 

21.00 

5.968 

5.0 753E-0? 

6.4 1?4F- 02-4 .99 3 36 — 03 

3. 8S05L-03 

. 7451 

2 . 86 04T- 02 

.9006 

-3.9Q77E-02 -.2798 

22.00 

5.937 

5. 875111-02 

6.3 855E-02-5 . 00 Vi E-03 

3- 60466-03 

. 7456 

2.0615E-O2 

. 5009 

-3.0677E-O2 -.2798 

23.00 

5.919 

5. R750L-U2 

6.3617E-U2-5.O127E-03 

3. 73U0E-03 

. 7460 

2.85540-0 2 

.9010 

-3.8877E-02 -.2799 

24.00 

5.902 

5. b749F-02 

6. 3406E-02-5 .0208 E-03 

3.664 7L-0J 

.7464 

2 . 8499E- 02 

.9011 

-3. 8877 E— 02 -.2799 

25.00 

5. bob 

5. 8740E-O2 

6.3217E-02-5.0280E-03 

3.607 2fc -03 

. 7467 

2.S451E-02 

.9012 

-3.8877E-02 -.2799 

26.00 

5.875 

5.874 75 — U 2 

C .3049E -02-5 .0344 E-03 

3. 55o-»t~03 

. 7470 

2.8407E-02 

.9013 

-3.8877E-02 -.2799 

27.00 

5. b6 3 

5.87460-02 

6.2 B97f -02-5 .0402 6-0 3 

3. 5113c -03 

.7472 

2.6 368E-02 

.9014 

-3.8877E-02 -. 2799 

2a. 00 

5.863 

5. 0746F-O2 

6.2760E-0?— 5.0454E-03 

3. 47101-03 

.7475 

2.8332E-OZ 

.9014 

-3.0877E-O2 -.2799 

29.00 

5.843 

5 . R745E-02 

6.2636E-02-5 .0500T-03 

3 .4340 E —03 

. 7477 

2.8300F-02 

.9015 

-3.8877E-02 -.2799 

30.00 

5.H35 

5. 3745F-02 

6.2524F-G2-5.054JE— 03 

3.4023E-03 

.7479 

2.B271E-02 

.9015 

-3.B877E-02 -.2799 

31.00 

5.827 

b. H744E-02 

6 • 2 422 E -02-5 *0581 E-03 

3.3 730E-03 

.7480 

2.82446-OZ 

. 5016 

-3.88 77E-02 -.2799 

32-00 

5.B20 

5.07 44E-02 

6.2329T-02-5. 0617 E— 03 

3. 3464t-03 

.7482 

2.8220E-02 

.9016 

— 3.8377E-02 -.2800 

33.00 

5.813 

5.8 743 £-0 2 

6. 2 244E -02-5 .06490-03 

3 • 8 222L -03 

. 7483 

2-61986-02 

. 5016 

-3-0877E— 02 -.2800 

34.00 

5. 807 

5.87 435-02 

6.2166E-02-5.0678E-03 

3.300it-03 

.7485 

2.8177F-02 

.90 17 

-3.8877E-02 -. 2800 

36.00 

5.802 

■ 5.8 7 ^3 F-0 2 

(. .2094E-02-5 .0 7Q5F-C13 

3. 2 800E-Q3 

. 74et 

2.B159E-02 

.9017 

-3.BB77E-02 -.2800 

36.00 

5.797 

5.0742t-O2 

6. 2 028E -02-5. 07306-03 

3.2615E-03 

.7487 

2.8141F-02 

.9017 

-3.8877E-02 -.2800 

37.00 

5. 792 

5.8 742E-02 

6. 1 966E - 02- 5.0753 E-03 

3.2 445t ~03 

. 7408 

2.6125E-02 

.9018 

-3 .8077E-O? -.2800 

38.00 

5.708 

b. «742c-02 

6. 19 10E -02-5 .07 74 0—03 

3.2289C-03 

.7489 

2. 8111 E- 02 

.5018 

-3.8877E-02 -.2800 

39.00 

5.704 

5.b 742E-02 

6. 1 8 58E-02-5. 0794 E-03 

3.2 1446-03 

.7490 

2 • 8097F — 02 

.5018 

— 3 • 8 877E-02 -.2000 

40.00 

5.780 

5.87 42E-0Z 

6. 1 H09E-02-5.0B12E-03 

3.201 1 E-0 J 

■ 7 49 L 

2 . 8084E- 0? 

.5018 

-3.0877E-O2 -.2800 

4L.00 

5.777 

5.074LE-O2 

6. 1 764E-02-5. 08290-03 

3.103/fc-O 3 

. 7492 

2.8073E-0Z 

.90 19 

-3.B877E-02 -.2000 

42.00 

5.773 

5.8741F-02 

c. 1 722E-02-5 .004 5 E-03 

3. W72t-Q3 

.7492 

2-A062E-02 

.9019 

-3.8677E-02 -.2800 

43.00 

5.770 

5.0741E-O2 

6-1682E — 02-5. 0H6OF— 0 3 

3.1665E-03 

.7493 

2.8051 F- 02 

.9019 

-3.8877E-02 -.2800 

44.00 

5.76 8 

5.8741E-02 

6. 16 46 E-0 2- 5.08 73F-03 

3. 1565E-03 

. 7494 

2.8042E-02 

.9019 

-3.8077E-O2 -.2000 

45.00 

5.76 6 

5. 8741E-02 

6.1611 6-02-5.08 86 E-03 

3.1 4/2l— 03 

.7494 

2.8033F-02 

. 5019 

-3.8877E-02 -.2800 

46.00 

5.762 

5.874 l l-0 2 

6. 1579E-02-5. 0098 E-03 

3. 1 ->85t 

.7495 

2.80Z4E-02 

.90 19 

-3. 8877E-02 -.2800 

47.00 

5- 7c 0 

5. B740E-02 

t . 1 54SE-OZ-5 .09 09 E-03 

3. L 304t — 03 

. 7495 

2-0O16E-O2 

.5020 

-3 . 88 77E-02 -.2800 

4 S. 00 

5.756 

5.67 4Ut-U2 

6. 1 iZLE-02-5. 0920 t-03 

3. 1227E-03 

.7496 

2.8009E-0 2 

.9020 

-3. 8877E-Q2 -.2800 

49.00 

5.75*. 

5.87 40C-02 

C.1494E-02-5.0930F-03 

3. 1 1 566 -Oj 

.7496 

2.80026-02 

.9020 

-3.88776—02 -.2800 

50.00 

5.754 

5.8740E-02 

6. 1469E-02-5 .0939E-03 

3 • i0bdc-03 

.7497 

2.7995E-02 

.5020 

-3.88 77E-02 -.2800 

51 .00 

5.752 

5. 07 4 OE -02 

6.1 445E-C2-6.094BE-03 

3. 102 56-03 

. 7497 

2.7989E-02 

.9020 

-3.8877E-02 -.2300 



ki s.t j.nq of ta pe 31 for sample case (tether spring constants ; . - 

LONG ITUDINAL STABILITY uF TfrHEFtO GALLIUM - IPC bA L CON- PL t- tK tNC t CONFIGURATION Ll/20/7? OS. 56,50. 


TETHER SPRINGS 


VELOCITY 

SKXX 

SKXZ 

S K XT 

SKZX 

SKZZ 

SK zt 

SKTX 

SK T Z 

SK T T t D 

SKTT.Tl 

L.000 

5.239 

961.7 

-2737 

96L.7 

I.l4o5t*05 

-3.2680F+05 

-2737 

- 3 . 260OF *C5 

9. 3156E + 05 

2 73. 7 

2,000 

9.445 

250.9 

-607.6 

250.8 

7t2 / 

-2.1 0236*04 

-657.4 

-2. 1023E + C4 

5.7963E+04 

280.9 

3.000 

5. SOI 

119.4 

-307,5 

119.3 

160* 

-4 342 

-307.2 

-4341 

l. 1340E*04 

2S2.2 

4.U00 

10.32 

73. 7 6 

-174. 1 

73.53 

601. > 

-1455 

-173.6 

- 1454 

3533 

307.1 

5.000 

11.03 

53.09 

-112.0 

52.00 

290.5 

-638.6 

- 1 L 1.2 

-637.7 

1418 

325.0 

6.000 

12.01 

42. 44 

-77.95 

42.01 

L70.2 

-J33.4 

-76.75 

-332.0 

660.0 

345.8 

7.000 

13,26 

36 . t.0 

-56.97 

36.07 

114. 7 

-196.4 

-55.23 

-154.3 

352.6 

369.2 

d.000 

14.63 

33.68 

-42,72 

3?. S4 

85.93 

-126 .L 

-40 -40 

-123.2 

203-6 

395.5 

<3.000 

it * 7 8 

32.40 

-32.11 

31.20 

69.05 

-05.94 

-29.01 

-02.10 

127.5 

424.5 

10.00 

15. 1 3 

32. 31 

-23.44 

30.84 

6 J .47 

-60.03 

-19.40 

-55.80 

B7, 12 

4 56.3 

11.00 

21,44 

33.13 

-15.74 

31.24 

54.95 

-43. 76 

-10.56 

-37.30 

66. L4 

491.1 

12.00 

25.23 

34.66 

-8.370 

i?. 29 

51 »b* 

-31 .23 

-1.855 

-23.06 

56.77 

520.8 

13.00 

25.03 

36.81 

-.9242 

33.86 

5 J . j4 

-21.33 

7. 14R 

-11.19 

55.10 

569.6 

14.00 

33.39 

39.52 

6.894 

35.91 

49 .97 

-12.90 

16.75 

-.5507 

59.09 

613,3 

15.00 

2d. 33 

42.75 

1 5.30 

30.39 

50 .4o 

-5.507 

27 . 19 

9.492 

67.62 

660-1 

U.00 

43. fad 

*6 . 4b 

24.47 

41.20 

51 «o2 

1.497 

33. 62 

19. 39 

80.10 

710.0 

17.00 

50.07 

50.69 

34.51 

44.56 

5 3.34 

8. 314 

51 .19 

29.43 

96.20 

7 63.0 

ld.00 

56.51 

55.37 

45.55 

46.22 

5 j • 54 

15. 14 

65.00 

39.80 

115.7 

819.1 

19.00 

64.43 

60.53 

57.65 

52.25 

58.10 

22. 10 

bo. n 

50. 63 

138.6 

8 76.4 

20.00 

72.65 

66. 15 

70. SO 

56.66 

61.16 

29 . 31 

96.66 

6 2.03 

164. a 

940.7 

21.00 

61.57 

72.24 

85.33 

61.44 

64 .52 

3o. 83 

114.6 

74.0 r 

194.3 

L 006 

22.00 

91.21 

78.78 

101. 0 

66.5 8 

fad .20 

44 . 73 

134.1 

H6. 81 

227.1 

1075 

23.00 

LUl.t 

05 . 79 

i 17.9 

72.10 

72 .21 

53. C3 

155. L 

100.3 

26 3.2 

1147 

24.00 

112.7 

93. 26 

l 36. 2 

77.98 

7tJ , 5 1 

61 . 78 

177.6 

L 14.5 

302.5 

1222 

26.00 

124.5 

101 .2 

155.7 

84.22 

91-11 

71. Cl 

201 . 7 

129.5 

345.2 

1300 

26.00 

137.1 

L09.6 

1 76.6 

90.83 

0 5.49 

do. 71 

227.3 

145.4 

391. 1 

13BI 

27.00 

150. 4 

118.4 

1 98. B 

97.81 

91 .16 

90 . 93 

254.6 

U2 .0 

440.3 

1466 

28.00 

lb4. 5 

127.7 

222.4 

105.1 

96 .59 

10 L .7 

283.4 

179. S 

492.8 

1553 

29.00 

1 79. 3 

137.4 

247.3 

112.8 

102.3 

112.9 

313.8 

l S7 . R 

548.6 

1644 

30.00 

194. 8 

14 7.0 

273.6 

120-9 

10b. 3 

124.7 

345.0 

2 16.9 

60 7.6 

1730 

31.00 

211.1 

153.2 

301.2 

129. 3 

114.5 

137.0 

379-4 

2 36.8 

669-8 

1835 

32.00 

220 • 1 

It 9.3 

3 30.1 

118. 1 

12 1.0 

L49.8 

414. 5 

257.6 

735 .2 

1935 

33.00 

245. ti 

180.3 

360.4 ' 

l 4 /. 2 

127. 1 

163.2 

451.2 

27y .2 

803.9 

2039 

34.00 

264.2 

192.7 

39 2.0 

156.6 

134. 7 

L 7 7. 1 

469.5 

301 .7 

0 75 .6 

2146 

35,00 

263.4 

205. 1 

424.9 

lb6.5 

14 1.9 

19 1.5 

529-3 

325.0 

950.5 

2255 

36.00 

303.3 

217.9 

459.1 

1 76.6 

149.4 

2J6.5 

5 70.7 

349.1 

1029 

236B 

3 7.00 

32 3.9 

231.1 

494.7 

187.1 

157.2 

222 .0 

613.6 

374.0 

L l 10 

2485 

30.00 

345.2 

244.0 

531.5 

198.0 

163.1 

238 .0 

656.0 

399-7 

1194 

2604 

39.00 

367.2 

2 5 8.9 

5 o9 . 6 

209.2 

Lf 3.4 

254.0 

70 3.9 

4 26. 3 

1201 

2727 

40.00 

3d9.S 

273.4 

609.0 

220.7 

18 1 .6 

27 L .6 

751.3 

453.7 

1371 

2852 

41.00 

415.3 

288.3 

649.7 

2 32.6 

190. 3 

2 d 9 . 2 

fl00.3 

4 81.8 

1464 

2981 

42.00 

4 3 7.4 

303.6 

691.7 

244.8 

194.5 

30 7 .4 

8 5 0.7 

5 10.0 

1 561 

3113 

43.00 

4t>2. 2 

319.4 

7 34.9 

257.3 

2 Jb.6 

326.0 

902.6 

540.6 

1660 

3249 

44.00 

487. t 

3 3 5.6 

7/9.3 

2 70.2 

21b. 0 

345.2 

955.9 

571.2 

1762 

3387 

45.00 

5 L 3. b 

352.2 

825.0 

2 8 3.4 

227.7 

364 .8 

ion 

602.6 

186 7 

3529 

46.00 

540. 6 

369.2 

871.9 

297.0 

2 J 7. t 

385.0 

L06 7 

6 34.0 

1975 

3674 

47.00 

568. 1 

3«6.A 

920.1 

310.8 

2*7.7 

405.7 

1125 

667.7 

2005 

3822 

48.00 

596.3 

404.4 

969.5 

325.0 

25b. L 

*26.9 

1 104 

701 . 5 

2199 

3973 

49.00 

625. 1 

422.7 

1020 

339.6 

2fa b .6 

448 .6 

1245 

736.0 

2316 

4L27 

50.00 

654 . 6 

441.3 

1072 

3 54.4 

2 7 4-5 

470.8 

1 307 

771 .3 

2435 

4285 

51.00 

6d4. 8 

460.4 

l L 25 

369.6 

29 0.5 

49 3.6 

1370 

HC7.4 

2557 

4445 



Listing of tape 32 for sample case (equilibrium tether conditions ) . - 

LCNGITUUtML STABILITY TF TiTHEFLO taluks - LF C GALLCCN-FEF fcFENtc CONF I Cll» AT I "N 11/20/72 C<..5fc.50. 


TtTh£P CO'.OJ Tl"f.$ 


VELOCITY 

X 1 

Z 1 

0A.*n 

t n 

G4M1 

T 1 

CAB D0 AG 

1.003 

.-♦953 

61.03 

84 . 19 

6 1.51 

8 9.62 

82.43 

1.0L04F 

2.000 

1.943 

60. 96 

3c . 02 

62.77 

89,30 

83.68 

4 .0 41 3 E 

3.000 

4.2 3 c, 

60 . a3 

33.09 

6 4. 78 

88. -to 

8 5.65 

9.0940E' 

4.000 

7.2 1 8 

40.51 

76.23 

67.49 

87 .j> 

86.24 

.1617 

3.030 

LJ. 69 

59.42 

72. 78 

70.85 

Sfa .01 

91.40 

.2526 

6.0C0 

14.44 

59.32 

6 6.99 

74.97 

84 .‘to 

95- 1 1 

.3630 

7.000 

lo. 2 6 

5 7. 63 

51.25 

79.55 

&2.ol 

99.30 

.4951 

8.000 

21.9 5 

5t.3b 

? 5. aa 

5 4.91 

Si . 04 

104.3 

.6467 

9.0J0 

2 5.39 

5 4.7c 

5 L .04 

9C.96 

79 1 

109.7 

.9195 

10.00 

26.52 

53.10 

4c .81 

97. t9 

77.3c 

115.9 

i .010 

11.00 

31.25 

51.41 

43.19 

105. L 

75.33 

122.8 

1.223 

12.00 

23.73 

49. 77 

40.12 

113.2 

73 . n 

130.3 

1.455 

13. CO 

35. *4 

46.2 1 

37.53 

122.1 

7 c .0^ 

139.6 

1.700 

14.00 

37.6 7 

46 . 77 

35.36 

131.6 

7 J .34 

147.7 

1.960 

15.30 

3 r< - 2 5 

h 5 . 4-, 

3 3.5*+ 

141.9 

6b .77 

157,5 

2.273 

16.00 

40*o L 

44. 22 

32. CO 

15 2.9 

67 .30 

168 .1 

2.537 

17.00 

41.79 

43. 12 

3 ). 70 

l64.o 

o5 . 91 

179-4 

2.920 

18.00 

42. d 1 

42. 13 

29 . fcO 

1 77. 1 

6*+ .o2 

191.5 

3.274 

19.00 

43.70 

4 1.23 

26.66 

190. 3 

63.42 

204.4 

3.648 

20. CO 

46. 4t> 

4 C . 42 

?1 .db 

204.2 

62 .3 1 

218.1 

4. 042 

21.00 

45.16 

39.69 

2 7. 16 

218.9 

61 .20 

232 .5 

4.456 

22.00 

45.7 5 

34.03 

26.55 

234.4 

60 .33 

247.7 

4. 891 

23.00 

46*26 

35.43 

26. C3 

250.5 

59 .*6 

263.7 

5.345 

24. JO 

4t. . 7 5 

3 7 . R9 

25.57 

267.4 

5b . t 5 

280.4 

5.020 

25.00 

47.17 

37.40 

25. lc 

285. 1 

57.90 

297 .9 

6.315 

26.00 

47.34 

36.9 5 

24.80 

303. 5 

57.21 

j 1 6 • ? 

6.831 

27.00 

4 7.3b 

36.55 

24.49 

322.6 

56.57 

335 .2 

7. 366 

28.00 

4 6.1b 

36. 16, 

24 .20 

342. 5 

55.98 

354 .9 

7.922 

29.00 

43.9 3 

35.64 

2 3.95 

363. 1 

55 .4* 

375.4 

8.499 

30.00 

48. t 9 

35. 53 

23.72 

3G4.5 

5-t .92 

396.7 

9.09 4 

31.00 

43.9 1 

35. 24 

2 3.52 

406.6 

54 . i-5 

41 8. 7 

9.710 

32.00 

44.1 2 

34-96 

23.33 

429.5 

54 .02 

«»4 t .5 

10.35 

33. OQ 

49.30 

34 . 74 

23.17 

453.0 

5 j .6 1 

4b4.9 

11.00 

34.00 

45.4 1 

3* . 52 

23. Cl 

477. 3 

53.23 

489.2 

1 1.60 

35.00 

44.63 

34. 31 

22. fc 7 

502.4 

52 -db 

514.2 

12.39 

36 . 00 

44. 7 7 

34. 12 

22 .75 

528.2 

52 

539.9 

13. 10 

37.00 

45.90 

33.95 

22.63 

554.7 

52 .25 

566 .4 

13.83 

38.00 

53.02 

33. ?* 

22.52 

562.0 

51 .4U 

593.6 

L4.59 

39.00 

53. 1 3 

33. 63 

22.42 

610.0 

51 .04 

621.5 

15.37 

40.00 

50.2 4 

33.49 

22.33 

o 3 6. 7 

51 .44 

650.2 

16.17 

41.00 

50.33 

33.35 

22.25 

060.2 

51 .21 

679.6 

16.99 

42.00 

50.42 

*3.23 

22.17 

69 8, 4 

50 .99 

709 .6 

17,82 

43.00 

5C.51 

33.11 

22. 10 

729. 3 

50. 7o 

740.7 

18. 6B 

44,00 

50 .3b 

33.01 

22. C3 

761.0 

5 J .56 

772 .3 

19.56 

45.03 

50 . 6 o 

3 2.90 

2L.97 

793.4 

50.40 

804.6 

20.46 

4 6. 00 

50.73 

32.31 

2 1 . °1 

826.5 

50 .2J 

837.7 

21.38 

47.00 

50.79 

32. 72 

21.05 

860. 3 

5 J .06 

371 .6 

22.32 

48. 00 

50. H5 

32. c3 

21.80 

894.9 

49 ,91 

906.1 

23.28 

49.00 

50.41 

32.55 

21.75 

930.3 

49.76 

94 1 .4 

24.26 

50.00 

50. 9o 

32. *8 

21.71 

966.3 

49.o2 

977.5 

25.26 

51.00 

51.01 

32.40 

21.67 

1003 

4* .49 

1014 

26.28 
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Listing of tape 33 for sample case (uncoupled characteristic roots ) 


LONGITUDINAL STABILITY OF TETHERED BALLOON - LRC BALLOON-REFERENCE CONFIGURATION 11/20/72 09.56.50, 


UNCOUPLED ROOTS 


VEL 

B L XI RLX2 

!*X1 14X2 

RL21 

inn 

RL 12 
I NZ 2 


RLT1 

IMTl 

RLT2 

IMT2 

1 .000 

-1.3015E-02 -1.3015E-02 
.6039 -.6339 

-4.3199E- 

54.13 

02 -4.3199E- 
-54. 13 

02 

-.1169 

73.82 

-.1169 

-73.02 

2.000 

-2.5993E-02 -2.5993E-02 
.6915 -.6915 

-8.59S2E- 

13.96 

02 — 8.59S2E- 
-L3.96 

02 

-.2337 

18.47 

-.2337 

-18.47 

3.000 

-3.B935E-02 -3.8935E-02 
.7C43 -.7043 

1284 

6.516 

1284 

-6.516 


- .3504 
8.267 

-.3504 

-9.267 

A . 000 

-5.1363E-02 -5.1063E-O2 
.7227 '.7227 

-.1710 

3,913 

-.1710 

-3.913 


-.4673 

4.757 

-.4673 

-4.757 

5.000 

- 6 • 4 795E-02 -6.4799E-02 
.74 72 -. 7472 

-.2138 

2.713 

-.2133 

-2.713 


-.5642 

3.190 

-.5842 

-3.190 

6.000 

-7.7749E-02 -7.7749E-0Z 
.7787 -.7737 

-.2572 

2.066 

-.2572 

-2.066 


-.7013 

2.385 

-.7013 
-2. 385 

7.000 

-S.0715E-02 -9.Q715E-0Z 
.6175 -.8175 

-.3010 
l .682 

-.3010 

-1.682 


-.8186 

1.926 

-.8166 

-1.928 

e.ooo 

-.1037 -.1037 

.6642 -.6642 

-.3451 

1.438 

-.3451 

-1.438 


-.9359 

1.644 

-.9359 
-l .644 

9.000 

-.1167 -.1 167 

.9167 -.9187 

-.3895 

L.275 

-.3895 

-1.275 


-1.053 

1.447 

-1.053 
-1 .447 

10.00 

-.1297 -.1257 

.9606 -.9806 

-.4335 

1.162 

-.4339 

-1.162 


-1.1 7L 

L.294 

-l. 17 1 
-1.294 

U.QC 

-.1427 -.1427 

1.0 50 -L.0 50 

-.4785 

L.081 

-.4785 

-1.081 


- 1.28b 
l .160 

-1.288 
-1 . 160 

12.00 

-.1557 -.1557 

L.125 -1.125 

-.5231 

1.022 

-.5231 

- 1.022 


- 1 . 40o 
1.033 

-1.406 

-1.033 

13.00 

-. 1687 - . L6 67 

1-207 -1.207 

-.5678 

.9783 

-.5679 
- .5763 


-L.323 

.9013 

-L.523 

-.9010 

14.00 

-.1617 -.1817 

1.255 -1.295 

-.61 24 
.9461 

- .6124 
- .546 1 


-1.641 
. 75 06 

-1.641 

7566 

15.00 

-.1947 -.1947 

1. 386 -1.338 

-.6571 
. 9223 

-.6571 
- .9223 


-1.758 

.5816 

-1.758 

-.5816 

16.00 

-.2077 -;2077 

1.485 -L.485 

-. 7017 
.5052 

-.7017 

-.9052 


-1.875 
.327 7 

-1.975 

-.3277 

17.00 

-.2207 -.2207 

1.536 -1.586 

-. 7463 
.8936 

-.7463 
-.89 36 


- 1 . 6 *t 3 

0 . 

-2. 342 

0 . 

IB. 00 

-.2337 -.2337 

L.692 - 1 . c92 

-. 7909 
.8864 

-.7909 

-.8864 


-1.518 

0 . 

-2. 703 

0 . 

19. OC 

- . 24t 7 -.2467 

1.6C0 -1.600 

-.8355 

.8829 

-.8355 

-.8829 


- i. 466 

0 . 

-2.990 

0 . 

20.00 

-.2 557 -.2557 

1.912 -1.512 

-.5901 
. 8828 

- .0901 

-.8828 


-1.445 

0 . 

-3.245 

0 . 

2L.00 

-.2727 -.2727 

2.026 -2.026 

-.9246 

.8854 

-.9246 

-.3854 


-1.443 

0 . 

-3.403 

0 . 

22.00 

-.2857 -.2857 

2.143 -2.143 

-.9652 

.8907 

-.9692 
- .6507 


-1.453 

0 . 

-3. 708 

o. 

23.00 

-.2596 -.296c 

2.262 -2.262 

-L.014 

.8981 

-1.014 

-.8981 


-1.472 

0- 

-3.923 

0. 

24.00 

-.3116 -.3116 

2.383 -2.383 

-1.058 

.9076 

- UC58 
-.9076 


-1.49b 

0. 

-4. 132 

0. 

25.00 

-.3246 -.3246 

2.506 -2.506 

-1.103 

.9189 

-1.103 

-.9189 


-1.530 

0. 

-4.334 

0. 
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26.00 

-.3376 

- .3376 

-1.147 

-1.147 

-1.567 

-4.532 


2.629 

-2.629 

.9313 

-.9318 

0. 

0. 

27.00 

-.3506 

-.3506 

-1.192 

-1.192 

-L.C08 

-4.726 


2.755 

-2.755 

.9462 

-.9462 

0. 

0. 

23.00 

—.36 36 

-.3636 

-1.236 

-1.236 

-1.652 

-4. 917 


2.881 

-2.881 

.9619 

-.9619 

0. 

0. 

29.30 

-.3 766 

-.3766 

-1.281 

-1.26L 

-1.699 

-5.105 


3.008 

-3.008 

.5789 

-.9769 

U. 

0. 

30.00 

-.3656 

-.389o 

-1.325 

-1.325 

-1.7*9 

-5 .290 


3. 136 

-3.136 

.9969 

- . 9569 

0. 

0. 

3L.00 

-.4026 

— • 402t 

-1.370 

- 1.370 

- L.dOi 

-5.472 


3 . 2 £ 5 

-3.265 

1.016 

-1.016 

0. 

0. 

32.00 

-.4156 

- • 4 1 5o 

-1.414 

-1.414 

-1.635 

-5.653 


3. 394 

-3. 394 

1.036 

-1.036 

0. 

0. 

33-00 

-.4266 

- . 4286 

-1-458 

- L .458 

- i • 5 1 1 

-5.832 


3.524 

-3. 524 

1.057 

-1.057 

0. 

0. 

34.00 

-.4416 

- .4416 

-L. 503 

-1.503 

- 1 .469 

-6 .009 


3.t54 

-3 . t 5^ 

L .078 

-1.076 

0 • 

0. 

35.00 

-.4546 

- .4546 

-1.547 

- L.547 

-c.027 

-£.18 5 


3. 755 

-3. 785 

1.100 

-1.100 

o. 

0. 

36.00 

—•467b 

-.46 76 

-L .592 

- 1.592 

-2.G6 7 

-6.360 


3.416 

- 3.916 

1.123 

-1.123 

0. 

0. 

37.00 

-.*ec6 

- . 43C6 

-1.636 

-1.636 

-2.1*9 

-6.534 


4.047 

-4.047 

L. L47 

-1.147 

0. 

0. 

38.00 

- • 4 S 3 6 

- .4936 

-1.691 

-1.681 

-2.i_l 1 

-6 .706 


4. L 78 

-4.175 

1.170- 

-1.170 

0 . 

0. 

39.00 

-.5066 

- . 5066 

-L.725 

-1.725 

-2.2 7* 

-t . 873 


4.3 10 

-4. 3L0 

1.155 

-l .195 

0. 

0. 

40.00 

-.5 15t 

-.5196 

-1.769 

- 1.769 

-2.33d 

-7. C49 


4.441 

- 4 . *t4 1 

1.219 

-1.219 

0. 

0. 

41.00 

-. 5326 

-.5326 

-1.814 

-1.8L4 

-2 .*03 

-7.219 


4.5 73 

-4.573 

1.245 

-1.245 

0 . 

0. 

42.00 

-.5455 

- .5455 

-1.358 

-1.853 

-2 .*6 d 

-7.388 


•t. 705 

-4.705 

1.270 

-1.270 

0. 

0. 

43.00 

-.5585 

- .5585 

-1 .902 

-1.502 

-2.534 

-7.557 


■t. 836 

- 4 . d36 

l.29b 

- L.296 

0. 

0. 

*4. 00 

-.5715 

-.5715 

-1.947 

-1.947 

-c .tOO 

-7. 725 


4. 9 bd 

-4. 966 

1.322 

-1.322 

0. 

0. 

45.00 

- ♦ 5 o45 

-.5645 

-1.991 

-1.991 

-2.b67 

-7.893 


5. 100 

-5. IOC 

1.348 

-1.348 

J. 

0. 

46.00 

-.5975 

-.5575 

-2.036 

-2.036 

-2.735 

-3.060 


5.231 

-5.231 

1.3 75 

-1.375 

0. 

0. 

4 7.30 

-.6105 

-.6105 

-2.030 

-2.000 

-2.O02 

-9. 227 


5.363 

-5.363 

1.40L 

-L.401 

0. 

0. 

43.00 

-.t 235 

-.623; 

-2.124 

-2.124 

-2.671 

-8.394 


5. 495 

-5.495 

L.426 

- 1.428 

0. 

0. 

49.00 

-.53 bp 

-.6365 

-2.169 

-2.169 

-2.9 3* 

-8. 560 


5 . 626 

- 5. 626 

L .456 

-1.456 

u . 

0. 

50. 0C 

- .6455 

- .6495 

-2.213 

-2.2L3 

-3.008 

-8. 726 


5. 758 

-5.753 

1.483 

-1.483 

Q. 

0. 

51.00 

- .0625 

- .6625 

-2-256 

-2.253 

-3.0 77 

-8 . P92 


5 . d 6 9 

-5.309 

1.510 

-1.510 

J. 

0. 
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LATERAL STABILITY PROGRAM 


The main program for the lateral stability program is the same as for the main pro- 
gram for the longitudinal stability program with the exception of the formats for labeling. 
In this case, however, rows 1, 2, and 3 of the matrices A, B, and C correspond to the 
coefficients of the y-, <j>-, and i^-equations, respectively. The general organization of 
subroutine INICOEF with entry point VCOEF is also similar to the organization of the 
longitudinal program. The only lateral tether spring is in the y-direction of the earth- 
axis system at the tether point (ref. 2) which is calculated in function subroutine YSUBY. 
The related springs about the balloon center of mass are then calculated from the 
y-spring. The FORTRAN variable names for the tether springs, and their definitions are: 


FORTRAN 
variable name 

Mathematical 

symbol 

Definition 

SKPP 

k <$>4> 

spring constant for roll displacement 

SKPS 


rolling moment due to yawing displacement 

SKPY 

k 0y 

rolling moment due to y -displacement 

SKSP 

V<f- 

yawing moment due to rolling displacement 

SKSY 

*Vy 

yawing moment due to y -displacement 

SKSS 

k i/zi/z 

spring constant for yaw displacement 

SKY? 

k yd> 

y -force due to roll displacement 

SKYS 

kyti' 

y -force due to yaw displacement 

SKYY 

k yy 

spring constant for y -displacement 


Trim or equilibrium conditions are calculated by the same procedures and sub- 
routines as used in the longitudinal program. The lateral stability derivatives are defined 
about the reference point by user -written function subprograms and are transferred to the 
center of mass. The variable names for the derivatives about the center of mass are as 
follows: 
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FORTRAN 
variable name 

Mathematical 

symbol 

Definition 

CLB 

% 

dC^dl 3 

CLBD 

% 

3 V4 

CLP 

C h 


CLR 

C l r 

sc '/ 8 il 

CNB 

Cn (3 

3C n fdi3 

CNBD 

Cn /3 

8c »/4 

CNP 

Cn p 

8 S 4 i 

CNR 

Cn r 

8C n/ 8 H 

CYB 

C Y^ 

9Cy/ 8j3 

CYBD 

CY ^ 

8c 4§ 

CYR 

c Y r 

8 C v,AH 

CYP 

Cy p 

8C V 8 i 


The limitations and diagnostics for the lateral program are essentially those given 
for the longitudinal program. In addition, the body reference axis for = 9 = 0 is 
assumed to be the principal axis for which I xz = 0 (where I xz is product of inertia). 
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Lateral Equations of Motion 

The equations of lateral motion written about the center of mass are (see ref. 9) : 
y-force 


•• PVS^ . k yy pVSc . f k y d> P v2 SClV 

2m y Y p m y 4m y Ip \m y 2m y y 


pVSc 


4m y V x i3 


,°Y a ' C Yr 




pV 2 S(C Yg + c D ) t v 

2m„ m, r 


^ = 0 


Rolling moment 


pSc 2 n pVSc _ • k W,., v PVSc 2 


■Q fl y + -^y + <b- 


k d>d> + h k 2 T i sin ri + M s x i xz .. 

+ 7 <*> - T- ^ 


pVSc^ 


«r " c ^ r ; 




k d>^ PV 2 s(cC Z(g - h k2 C D 
4 + 24 


^ = 0 


Ya vying moment 

pSc 2 pVSc „ ■ *Vy Jxz v pVSc 2 • 

4I 7 Cn S y 24 Cn 0 y 4 y 4 ^ 44 Cn P ^ 


k ^o+ m s 2 - h ki T l sin ri 


d> + + 


pVSc 2 , 


4I Z f n /3 " Cn r) 


* 


pV^SJcCn^ + hjqCDy 

TT * ± I* = 0 


The definition of Msj is given by equation (6), Ms 2 by equation (9), and 

pSc „ 

m y - m T + m y>a - — C Y ^ 


(19) 


(20) 


( 21 ) 


l x = Ijcx cos 2 a t + I zz sin 2 a t 
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I z = I zz cos2or t + Ixx sin 2 a t 


I xz s sin 2a^ - (ixx “ ^zz) s ^ n a t cos a t 


The tether derivatives about the center of gravity are 


k y 4> ~ " h k2 k yy 

(22a) 

kyi/z = h k]kyy 

(22b) 

k 0y = k y<£ 

(22c) 

k <P4 > = hk 2 k yy 

(22d) 


(22e) 

II 

<< 

(22f) 

= "^kj^k2^yy 

(22g) 

2 

= h kj^yy 

(22h) 


and h^ and hk£ are given by equations (8). 

The spring constant kyy is based on the analysis of reference 2 and is given by 


k yy = 


/ 9 - vl/2 

n^Tj sin^yj + 2p cos yjj 


Vq sin 2 y + 2p cos y 


The above expression is evaluated by function subprogram YSUBY which calls subroutine 
ROMBERG to evaluate the integral numerically. 

The lateral stability derivatives are also given about the reference point and are 
transferred to the center of mass by the following relations: 
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Input Required for Lateral Stability Program 

The user-written function subprograms FCD, FCL, and FCMR for the longitudinal 
static aerodynamic coefficients as described for the longitudinal program are also 
required for the lateral stability program as the lateral program also calculates longi- 
tudinal trim conditions. In addition, the 12 lateral stability derivatives for the configura- 
tion are described as user-written function subroutines with trim angle of attack as a 
formal parameter. Each function is written about the reference point and is transferred 
to the center of mass by DERTRN. It might also be noted that the definitions of the lateral 
derivatives are conventional (ref. 11) except that they are based on the reference length c 
and the reference area S. 
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For each case, one card of 80 characters of case identification is read in ar. 8A10 
format, and a namelist called LATDATA is read. The FORTRAN variable names, their 
equivalent mathematical symbols, and their definitions are listed in the NAMELIST which 
is also the order for printing. All variables are preset in the program with DATA state- 
ments to values for the reference configuration of the LRC balloon and only changes need 
to be read with the NAMELIST. 

FORTRAN Mathematical 

variable name symbol Definition 


COINS C Dins 


DELCD 

ACq ^ 

DELCL 

ac l ) 

DELCM 

*c m J 

DELCLB 

at v, 

DELCLBD 


DELCLP 

AQ P 

DELCLR 

AQ r 

DELCNB 

ACn /3 

DELCNBD 

A % l 

DELCNP 

ACn P ! 

DELCNR 

AC nr 

DELCYB 

aC Yp 

DELCYBD 


DELCYP 

4Cy p 

DELCYR 

aCy r 


constant increment of Cq (allows for C]} o;: instru- 
ment package of balloon) 


constant increments in coefficients about center of 
mass which are used for parametric studies 


constant increments in lateral stability derivatives 
about center of mass which are used for parametric 
studies 
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FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


RATIOKY 

S 

CBAR 

XXOI 

ZZOI 

TMASS 

AYMASS 

WTS 

BUOY 

BHR 

BLR 

SHR 


factor multiplying calculated y-spring, kyy (SKYY); 
used for parametric studies 

S reference area, (Volume of balloon)2/3 

c reference length, balloon body length used here 

Ijjx rolling inertia about axis through balloon center of 

mass parallel to body reference X-axis including 
aerodynamic apparent inertia, = 0 

I zz yawing inertia about axis through balloon center of 

mass parallel to body reference Z-axis including 
aerodynamic apparent inertia, a t = 0 

m T mass of balloon structure and contained gas 

m y )a aerodynamic apparent mass in body-reference y-axis 

direction, = 0 

W s structural weight of balloon 

B net buoyancy force 

h^j. component of distance from reference point to center 

of buoyancy, positive for center of buoyancy below 
reference point (see fig. 2) 

fj-jr component of distance from reference point to center 

of buoyancy, positive for center of buoyancy forward 
of reference point (see fig. 2) 

h sr component of distance from reference point to center 

of mass of balloon structure, positive for center of 
mass below reference point (see fig. 2) 
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FORTRAN 
variable name 


Mathematical 

symbol 


Definition 


SLR 

^sr 

component of distance from reference point to center 
of mass gravity of balloon structure, positive for 
center of mass aft of reference point (see fig. 2) 

CGH 

h cg 

component of distance from reference point to center 
of mass, positive for center of mass below reference 
point (see fig. 2) 

CGL 

*cg 

component of distance from reference point to center 
of mass, positive for center of mass forward of ref- 
erence point (see fig. 2) 

TLR 

^tr 

component of distance from reference point to attach- 
ment point of tether line, positive for attachment 
point forward of reference point (see fig. 2) 

TTR 

Hr 

component of distance from reference point to attach- 
ment point of tether line, positive for attachment 
point below reference point (see fig. 2) 

CLC 


length of tether cable 

CDIAM 

dc 

diameter of tether cable 

CDC 

CD c 

drag coefficient of tether cable based on diameter, i.e., 
drag of cable per unit length is C^dcpV^/2 

WC 

w c 

weight per unit length of tether cable 

RHO 

P 

ambient air density 

VMIN 

V 

v min 

minimum wind velocity 

DELV 

AV 

wind-velocity increment 

NVEL 


number of velocity calculations 



Listing of Input Data Cards for Sample Case 


«••••••••*•»•••**•••«*»••*•*••* COLUMN NUMBER ********************************** 

00000000011111111112222222222333333333344444444445555555555666666666677777777778 
123456789012345678901234567890123456789012 34 567890123456789 01 2 34 S678901234567890 

LATERAL STABILITY OF TETHERED BALLOON - LRC BALLOON - REFERENCE CONFIGURATION 
$LATDAT A VMIN-1., NVEL = 51 / DELV = 1.$ 
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Listing of Lateral Stability Program 


QVERLAY(STBLTY2,0,0) 

PROGRAM STBLTY2 ( INPUT = 1 , OUT PUT = 1 , TAPE 5= I NPUT , T APE7, TAPE 8=1, 

+ TAPE1 1=1, TAP £30=1, TAP E31 =1 ,TAPE32= 1, TAPE33 = 1 ) 

£***««** * 4 * *****-***** ****** ******** ***#*«$****$**? ** ** ******** ** * *** 


o * 

C* PROGRAM A2864, 2 - LATERAL STABILITY OF TETHERED BALLOON * 
C* * 
C* THE FOLLOWING SUBROUTINES ARE CALLED BY THIS PROGRAM, BUT ARE LISTED * 
C* CNLY WITH THE LONGITUDINAL PROGRAM - ROMBERG, QUADET, MATRIX, * 
C* REIG, HESSEN, AND ORT. * 
C* * 
C* PROGRAM REACS IDENTIFICATION CARD AND NAMELIST FROM INPUT FILE, AND * 
C* WRITES ONLY THE ID ARRAY FOR EACH CASE ON THE OUTPUT FILE * 
C* ALL FILES ARE BCC AND ARE SET TO MINIMUM BUFFER SIZE, EXCEPT TAPE7 * 
C* WHICH IS eiNARY AND USES STANDARD BUFFER SIZE * 
C* FILE ASSIGNMENTS ARE - TAPE7 = PL OTT I NG PROGRAM INPUT, T APEB = EI GEN- * 
C* VECTORS, TAP£11=EIGENVALUES, TAP E30= AE ROOYNAMI C COEFFICIENTS, * 
C* T AP E3 1 =TETHE R SPRINGS, T APE32 =T ETHER CONDITIONS, AND TAPE33= * 
C* UNCOUPLED ROOTS * 
C* * 


C **,*************************** ****************************** ************ 
CCMMCN/IPOW/IR0W(3O0)/IC0L/ ICCLC300 ) 

DIMENSION A(3,3),B(3,3),C( 3 , 3 > , S YMBOL l 1 1 ) ,101 10) 

DIMENSION E IDET (6,6 I ,SAVE< 6, 71, ROOT R I 6) ,ROOTI( 6) , INDEX I 61 

♦ , I RUN (6) ,P(6),IPIVI3I « INDX < 3 ,2 ) 

COMPLEX EICOEFi 3,3 ) , CROT , CRT SQ ,CDET 

DATA SYMBOL / HO HCIR CL E SQUARE DIAMOND TRIANGLE RT TRNGL 

♦QUACRANT DOG HCUSE FAN LNG DMND HOUSE / 

DATA RAOEG,DELV,NVEL,VMIN/. 017453292519943296, .5, 104,. 5/ SI UNITS 

108 FQRMATI1H1////X10AI0///) 

107 EOF MATI12X8313.5) 

106 FORMAT!/* V ELOC I TY=*G13 . 5 , 2X A 10 ) 

105 F0RHAT(50X*EIGENVECT0RS*//14X*COMPLEX ROOT-REAL, IHAG*5X 

♦ *Y/PS I « M/DEG-REAL , I MAG*3 X*PH I/PSI , D EG/OEG-R E AL , IMAG*6X SI UNITS 

+ *PSl ,OEG-REAL, I MAG*/) 

104 FORM AT(8X,A10,6G16.6) 

103 F0RMATI/2X7G16.6) 

102 FORMAT ( /* CONDITION NUMBER OF EIGENVALUE M AT R IX = * E10 . 2 / ) 

101 FORMATt/* CONDITION NUMBER OF A-MATR I X= *E 10 . 2 / ) 

100 FORMAT!//* VELOCI TY, (REAL (ROOT UU , 1=1, NP3S)*/* SYMBOL , ( I.MAU ( ROOT ( 

+1) ) , 1=1,NP0S) */ ) 

A 1 1 = 8H ( X 1 OA 1 0 ) $ A10= tH(BAlO) 

INITIALIZATION SECTION - READ IDENTIFICATION CARD, CALL DAYTIM FOR 
DATE ANO TIME, AND WRITE ID ARRAY ON BCD TAPES 3,11,30,31,32,33, 

AND EINAPY TAPE 7 WITHPECOUT. 00 NON -VELOC I TY-DEPE NDENT 
CALCULATIONS WITH A CALL TO INICOEF 
SEE SUBROUTINE WRITEUP FOR DESCRIPTION OF RECOUT 

NMP=3 $ NTWC=NMF+NMP t NPLl=NTWO+l 
REWIND 30 * REWIND 31 * REWIND 32 * REWIND 33 
REWIND 7 $ REWIND 8 $ REWIND 11 

1 READ A10, (ID( I ) ,1=1 ,8) $ I F ( EOF , 5 ) 999 , 2 

2 CALL CAYTIM! IC(9)) t PRINT All.ID $ WR 1 TE I 1 1 , 1 C0I ID 
WRITE(30,108)ID t WRI TE (3 1 , 10 8)1 0 $ WRI TE ( 32 , 1 08) ID 
WRI TE( 8,103 ) ID $ WRITE(8,105) & WR I TE ( 33 , 10 8 II D 
CALL RECOUTI 7,2,0, 10,1,10,1 ) 

CALL INICOEFI A, e,C,NMP,VEL,VMIN,DELV,NVEL) $ WR I TE( 1 1 , 100 ) 

CALL RECCUT (7*1,0,NVEL ) 

90-LC0P IS VELOCITY VARIATION LOOP 
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DO 90 I V= 1 , N V EL i VEL = VMIN+( I V-l. )*OELV 
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SET UP COEFFICIENT MATRICES FOR QUADRATIC STABILITY DETERMINANT 
WITH CALL TO ENTRY VCCJEF OF SUBROUTINE INICOEF 

CALL VC0EF1 A.etC.NMP, VEL tVMINtOELV, NVEL) 

EXPAND CUAORATIC N X N STABILITY DETERMINANT INTO 2N X 2N STANDARD 
EIGENVALUE FORM AND CHECK CONO IT IONI NG OF MASS MATRIX A 

CALL OUAOET ( A,B.C, 3. 6, NMP, 10. E IDE T , CNOA ) 
IFlCNOA.GT.l.E+AlWRITEdl.lOlICNUA 

EIGENVALUES FOR 2N SYSTEM AND CHECK CONDITIONING OF 2N X 2N MATRIX 
WITH CALL TO MATRIX FOR INVERSE AND TURING CONDITION NUMBER 


CALL REIGIEIDET ,NTWO,NTWO,0,ROOTR,ROOTI ,EIVEC, 6, INDEX, IRUN.P, 
♦ NPLl.SAVEI 

CALL MATPIXllO.NTWO.NTWO.O.EIDET, 6 ,DETE I , KB.CNOE I ) 
IFICNOEI.GT.l .E +6) WRITE! 11, 102JCN0EI 


ROCT SORTING - SORT COMPLEX ROOTS IN ORDER OF INCREASING MAGNITUDE OF 
FREQUENCY AND DETERMINE THE NUMBER OF COMPLEX ROOTS WITH POSITIVE 
VALUE OF FREQUENCY ( IMAGINARY PART) 


NEGR= 1 $ DG 50 NRT = l,NTWO t N I =NTHO-NRT $ DO 40 J = 1,NI 
IFIRCOTI ( J) -ROOT I ( J+1) )48,46,46 
46 TRI =ROOT I ( J ) t TRP = ROOTR(J) t ROOT I (J 1 = ROOT I I J +1 ) 

RCOTR(J)=ROOTR( J + l ) t ROOT I (J+1 ) = TRI t ROOTR ( J +1 ) =T RR 
4a CONTINUE 

50 CONTINUE $ DO 52 NR=l,NTWO 

IF l RCUTI (NR ) ,LT.-1.E-12)NEGP=NEGR+1 
52 CCNTINUE 


WRITE F COT S UN TAPE 11 


IK1=IV/10 $ I K2= 1 L t IF( IV.EQ.10MK1) I K2= l*MOD ( I Kl- 1 , 1 0 ) 

WRIT El 11 ,103 )VEL,< RGOTR (N) ,N=NEGP , NTWO ) 

WRITE! 11,104) SYMBOL ( IX 2 ) » ( ROOT I ( N ) , N= NEGR, NT WO > 

WRITE RESULTS ON BINARY TAPE 7 FOR INPUT TO PLOTTING PROGRAMS 

CALL RECOUT 17, l ,0, VEL, I K2 ♦ NEGR ,NTW0 ) 

CALL RECOUT 17,2,0, ROUTR , NEGR ,NTWO , 1 I 
CALL RECOUT (7,2,0, ROOT I , NEGR ,NTwO , 1 ) 

SETUP COEFFICIENT MATRICES FOR EIGENVECTOR < MODAL RATIOS) BY 
Cl VI D I NG BY PSI AND CALLING CXINV - RESULTS ON TAPEB 

WRITE(8,106)VEL» SYMBOL ( IK2) 

DO 7 C NE=NEGR , NTWO * CROT=CMP LXI KOOTR ( NE ) .ROOT I (N E) ) 

CRT SC = CROT*CROT i D0 60 IC=1,2 $ DO 60 IR=1,3 
60 EICCEF(IC,1P >=A ( IC, IR) *CRTSQ+B(IC, IR) *CROT+C < I C, I R> 

DO 1 4 1=1,2 

64 EICOEFU ,3)=-RAOEG*EICOEF(I,3) 

CALL CXINVl E I COEF, 2 » EICO EF ( 1,3) , L.CDET , IPIV.INDX, 3, ISC) 

E ICOE F ( 3 , 3 )= ( l.,0. ) 

70 WRITE(8,107)CRQT,(EICOEFC I, 3), I = 1,3) 

90 CONTINUE $ GO TC 1 

999 ENOFRE 7 i REWIND 7 t ENDFILE 8 * REWIND 6 $ REWIND 11 
REWIND 30 t REWIND 31 $ REWIND 32 i REWIND 33 
END PROGRAM STBLTY2 
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SUBROUTINE INICOEF! A,3, C, NMAX,VEL, VMI N.DELV.NVEL) 

SUBROUTINE CALCULATES COEFFICIENT MATRICES FOR QUADRATIC STABILITY 
DETERMINANT 

EQUIVALENCE! EQURT ( l t , UNCRT (lit 

DIMENSION A ( NM AX , 1 ) , BI NMAX , 1 ) ,C ( NMAX, 1 I ,EQURT< 1) 

COMPLEX UNCRT(6),CRAD,CS0RT 

INPUT PARAMETERS ARE READ FROM THE INPUT FILE WITH A NAMELIST READ 
OF THE NAMELIST LAT DAT A AND ARE WRITTEN ON TAPE 11 WITH A NAMELIST 
WRITE STATEMENT 

NAM£LlST/LATCATA/COINS»DECCD,DELCL,DE LCM, DELCLB.DELCLBD.OELCLP, 

♦ DELCLR.DELCNB, DELCN9D, DELCNP , DELCNR, DEL CYB , DELCY BD , DELC YP , DELC YP , 

♦ RATICKY.S.CBAR ,XXOI,ZZOI , T MA SS , A YM AS S . WTS , BUO Y , 8HR t B LR , SHR , S LR , 

+ CGh ,C GL ,TLR»TTR,CLC*CDIAM*CCC, WC . RHO , VMI N , DEL V ,N VE L 

COM MC N/LON& DL C/ C DI N S.DELCDt DELC L.DE LCM 


PARAMETERS FOR LRC BALLOON - REFERENCE CONFIGURATION - IN SI UNITS 

DATA COINS* UELCO.DELCL, DELCM, DELCLB, DELCL BD, DELCLP, DELCLR , DELCN B , 

♦ DELCNBD, DELCNP, DELCNR, DEL CYB, DELCY BD,OELCYP, DELC YR/. 01 ,15*0./ 

DATA DEGRAD/57. 2N57795130823/, RATIO KY/1./ 

OATA S ,CBAR, XXOI ,ZZOI/7.04, 7 .64, 16. 1, 164./ S 

DATA TMASS.AYMASS, WTS, BUOY/14.2, 23.9, 10 8., 190./ S 

DATA BHR.BLR, SLR , TL R, TTR/O . , 2 . 15 . 66 , 3 .44, 3 .8 2/ S 

DATA ShR,CGH,CGL/.38,.109, 1.10/ S 

DATA CLC,CDIAM,CDC,WC/61.,. 0141, 1.17, .343/ S 

OATA RHO/ 1.225/ S 


VELOCITY INDEPENDENT CALCULATIONS 

WRITE! 30, 101 I * WRITE(3L,102) t WR I TE ( 32, 103 I * WRI TE ( 3 3 , 1 04 1 
RE A C LATCATA $ WR I TE ( 11 , L ATDA TA ) 

SL= SLR *CGL $ SH=SHR-CGH * BL=BLR-CGL 
TL=TLR-CGL t TT=TTR-CGH $ BH=CGH-0HR 

CBAR2 = .5*CBAR t R0SC2=RH0*S *CBAR2 $ R0SCS4=CBAR2*R0SC2 
All, 1)=A(2,2)=A(3, 31=1. $ A ( 1 , 2 ) = A! 1 , 3 ) =0. * RETURN 

ENTRY PCINT VCOEF FOR V EL OC I T Y-0 EPENDENT CALCULATIONS 

ENTRY VCOEF 

Q= . 5*RH0* VEL * VEL S VCON= . 5* VE L*ROSC 2 

TRIM ANGLE OF ATTACK AND AERODYNAMIC COEFFICIENTS ABOUT THE CENTER 
OF MASS 

CALL TRI M IS, C E AR, W TS, BUOY,BL, 0H, SL, SH ,TL,TT, CGH ,CGL,Q, 

♦ CL ,CM ,CD,CLA,CMA, COA , AL PHA , XOC , ZOC , S INA ,COS A > 
ALPHAD=OEGRAD*ALPHA 

TRANSFER DYNAMIC STABILITY DERIVATIVES FROM REFERENCE POINT (MOMENT 
CENTER I TO CENTER OF MASS 

CALC DERTRN! XOC, ZOC, ALPHA ,CLe, CL BD, CLP, CLR,CNB,CN8D,CNP,CNR ,CYB, 
+ CY BC , CYR ,C YP I 


I UNITS 
I UNITS 
I UNITS 
t UNITS 
I UNITS 
I UNITS 
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INCREMENT LATERAL STABILITY DERIVATIVES FOR TREND STUDIES AND WRITE 
AERODYNAMIC COEFFICIENTS ON TAPE 30 


CLe=CLB+DELCLB * 
CNB=CNB+DELCNB $ 
CYB=CYB+DELCYB t 
CLR=CLR*DELCLR t 


CLbC-CLoD+CELCLBO 
CN8D = CN8C«-DELCN80 
CVBD=CYBO*DELCYBD 
CNR=CNR+DELCNR * 


WRITE (30, 106 J VEL,ALPHAD,CD,CL ,CLB,CLB 
* CYB,CYBD,CYP,CYR 


* CLP=CLP+DELCLP 
» CNP=CNP*DELCNP 
i CYP = C YP+DELCYP 
CYR = CYR«- DEL CYR 
0 , CLP.CLR.CNB, CnBD.CNP.CNR 


, 


CALCULATE EQUILIBRIUM CABLE CONDITIONS AND WRITE RESULTS ON TAPE 32 

DR AG=C0*Q*S $ BL IFT =CL *Q*S t COR AG= CDC*CD I AM*Q 

T1=SQRT(DRAG*DRAG+(BLIFT-WTS+BU0Y)**2 I 

C0SG1 = DRAG/T1 t GAM1 = AC OS ( CC SGI J $ TS G1 =T 1*S I N I GAM1 ) 

CALL TETHER (CDR AG, WC ,CLC ♦ T 1 , GAM1 , TO ,G AMO, XI, Zl) 

GAM1D = DEGRAD*GAM1 $ GAMOD = DEGR AD*GAMO 

WRI TCI 32. 100» VEL,X1,Z1 , GAMOD , TO , G AM ID , T l , CDP AG 

CALCULATE WE IGHT-BOUY ANCY MOMENT TERM ANO MASS TERMS INCLUDING 
APPARENT MASS ROTATION TO STABILITY AXES 

HK1 = TL*CCSA«-TT*SINA $ HK 2 = TT *COS A— T L*S I NA 
RMYT=1./ (TMASS*AYMASS-.5*ROSC2»CYBO» 

RIX=1 ./( XX01*COSA*CUSA+ZZOI*SINA*SINA ) $ XZI =( XXOI-ZZOl )*SINA*COSA 
R I Z = 1 ./(ZZOI*CGSA*COSA + XXGl*S INA*SIN4) 

SM 1= I BL*BU0Y+SL*WTSI*SINA+(BH*8U0Y+SH*WTS)*C0S A 
SM2=l BL*BUOY + SL *WTS ) *COS A- l eH *BUOY+ SH*WTS I *S I N A 

CALCULATE CABLE SPRINGS FROM DERIVATIVES OF NEUMARK AND TRANSFER TO 
STABILITY AXES - WRITE RESULTS CN TAPE 31 

SKYV=RATIOKY*YSLBYlCDRAG,GAMC, GAM1) 

SKYP=SKPY=-HK2*SKYY t SKP$= $KSP=HK1*SKYP 

SKY S=SKSY=HK1*SKYY $ S KPP=-HK2*S KYP t SKSS= HK1 *SK YS 

WRITE (31, 100 »VEL,SKYY,SKYP,SKYS,SKPP,SKPS,SKSS 

CALCULATE COEFFICIENT MATRICES A , B, ANO C 

A(2,1)=-RIX*R0SCS4*CLBD * A ( 2 , 3 ) =-X Z I *R l X 
A(3,U=-RIZ*RCSCS4*CNBD i A ( 3 , 2 I =-XZI *R I Z 
B ( 1 , 1 ) =— VCON/C0 AR 2* RMYT*C YB $ 311,2) =- VCON^RM YT*CY P 

B(L ,3 )=-VCON*RMYT*< CYR-CYBO) S B ( 2, 1 1 =-2 .*VCUN*R! X*CL 6 
B(2,2I=-VCGN*CBAR*RIX*CLP $ B ( 2 . 3 )=-VCON*CBAR*R IX*( CLR-CL BO ) 

B C 3 , 1 )=-2 .*VCCN*RI Z*CNB $ B l 3 , 2 ) =-VCON*CBAR*R I Z*CNP 

B(3»3)=-VCON*CBAR*RIZ*tCNR-CNfiDI 

C(1 ,1 ) = SKYY*RMYT $ C ( 1 , 2 I =R MYT* ( SKY P- Q*S*CL I 

C ( 1 , 3J=RMYT* ( SK Y$+C*S*t CYB+CDI) t C I 2 , 1 1 = R I X* SKPY 

C(2 ,2 ) = RIX*(SKPP*HK2*TSGI*SM1 ) 

C(2,3)=R|X* ( SKPS*Q*S*( CBAR*CLB-HK2*CD ) ) t C ( 3 , 1 ) = S< 3 Y*R I Z 
C(3,2)=RIZ*(SKSP-HK1*TSG1+SM2) 

C ( 3, 3 )=R I Z*(SKSS+Q»S*(CeAR*CNB+HKl*CD ) ) 

CALCULATE UNCOUPLEC RCOTS BY FACTORING DIAGONAL QUADRATIC TERMS AND 
WRITE RESULTS ON TAPE 33 

DO 1 P=1 , 3 i CRAD=.25*B(M,MI*9(M,M)-C (M,H) t CRAD=C SORT ( CRAD I 
M2=2»M i M1 = M2-1 t UNCRT(MU=-.5*B(M, MH-CRAD 
1 UNCRT<M2t=-.5*B(M,M)-CRAD 

WRITE(33,L05)VEL,(EQURT(I 1,1=1,11,2), ( EQURT ( I ) ,1 = 2,12,21 t RETURN 
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100 F0RMAT(2X11G1L.4) 

101 FORMAT,! / 2 OX* AERODYNAMIC COG FF IC £ E NT S*/ /* VELOC I TY*5X* ALPHAD*9X*CD* 
♦ 9X*CL*6X*CLB*8X*CLBD*8X*CLP*8X*CLR*BX*CN8*7X*CNBD*8X*CNP*/ 

+ 30X*CNR*6X*CYB*7X*CYBD*8X*CYP*8X*C YR*/) 

102 F0RMAT(/20X*TETFER SPRINGS*/* VELOC I T Y*7X*SK YY * 7X*S K YP*7X*SKY S* 7X 
+■ *SKPP*7X*SKPS*7X*SXSS* > 

103 FOR MAT ( /20X*TETFER CONDITIONS*/* VE LOC I TY*9X*X 1*9X* 1 1* 7X*GAM0*9 X 
+ *T0*7X*GAH1*9X*T1*3X*CAB DRAG*) 

104 FORMAT 1/2 OX*UNCOUPL ED ROOTS */7X*VEL*8 X*RL Yl*8X *RL Y2* 8 X*RLP 1*8X 
+ *R LP2*8X*RLS1*8X*RLS2*/18X* IMY1*8X*I MY2*8X*I M P1*3X* I MP2* 8X 

+■ *IMS1*8X*IMS2*) 

105 FORMAT! /2X7G1 2. 4/1 4X6G1 2. 4 I 

106 F0RMAT</2X11G11.4/24X9G11.4> 

END SUBROUTINE IN1C0EF 


SUBROUTINE TR IM I S , C BAR , WTS , BUOY , BL , BH , SL , SH, TL , TT ,CGH , CGL , Q , 

+ CL,CM,CD,CLA,CMA,CDA, ALPHA , F , G, S A,CA ) 

SUBRUUT I NE COMPUTES THE STATIC TRIM ANGLE-OF-ATTACK ALPHA USING 

NEMTCN iteraticn of the trim ecuation 

THE ALPHA DEPENDENT DERIVATIVES CD, CDA , CL, CLA, CM, AND CM A ARE 
ALSO TRANSFERRED TO THE CENTER OF MASS AND RETURNED 
IF CONVERGENCE IS NGT OBTAINED IN ITCMAX ITERATIONS, MESSAGE IS 
hRITTEN ON TAPE 11 

CUMMCN/LGNGOLC/CCINS, DEL CD, DELCL, DELCM 

ERR-l.E-6 t TLPHA=.05 $ QS=0*S $ ITCMAX=100 t ITC=0 

D=BUUY*BL+bTS*S L t E = BUOY*BH + wTS*SH 

1 AL PHA*TLPHA t CL=FC L I 4LPH A, C L A ) t CD= FCDI AL PHA , CO A ) 

CMR=FCMR( ALPHA, CMAR > i CA=COS ( ALPHA ) $ SA= S I M ALPHA ) 

A=TL*CA+TT*SA t B=TT*CA-TL*SA 

F={ CGL*CA*CGH*S A)/CBAR t G= ( CGH*C A- CGL*SA ) /C BA R 
CM= CMR— F*CL*G*CD * CM A=CM AR-F* < CL A*CD )-G* ( CL-C DA) 

CL=CL+DELCL i CM=CM*DELCM t C=BUOY-KTS+QS*CL 
CO*CO*DELCO+CDINS 

FUN=A*C-< B*CD + CH*CBAR)*OS-D*C A»E*SA 

DFUN-B*C + D*S A + E*CA + (A*( CL A*CO )-B*CDA- CM A*CB AR ) *QS 

TLPHA= ALPHA-FUN/DFUN % ITC=ITC*1 t IF (I TC .GT . I TCMAX ) GO TO 2 

IFIAES! ALPHA-TLPhA) .GT .ERR) 1,4 

2 WRITEIll, 3)1 TC, ALPHA, TLPHA 

3 FURMAT ( /* ITERATION FOR TRIM DID NOT CONVERGE IN*I6* ITERATIONS. 
♦ ALPHA=*G12 .6* TALPHA=*G12.6/) 

4 RETURN 
END 


SLBROUTINE TRIM 
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FUNCTION FCCIA.CDA) 

PCD IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CO A NO CDA . 

AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO BE ANALYZED 

CURVE FIT OF CO AND CDA VS ANGLE OF ATTACK IN RADIANS FOR LRC 
BALL CCN - REFERENCE CONFIGURATION 

X = A— . C 2 3 t X5=X**5 S C D A = 1 1 1 7 . 2*X5 
FCD*.C4B7-*136.2*X*X5 $ RETURN 1 END 


FUNCTION FCL(A.CLA) 

FCL IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CL AND CLA 
AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO 0E ANALYZED 

CURVE FIT CF CL AND CLA VS ANGLE OF ATTACK IN RADIANS FOR LRC 
6ALLCCN - REFERENCE CONFIGURATION 

X= A- . C 23 t X2 = X*X i CLA=.82-X2*(15. 069-557. 0*X2I 
FCL=X*( .82-X2*( 5.023-111 .4*X2I I * RETURN i END 


FUNCTION FCMRIA.CMAR) 

FCMR IS A FUNCTION TO BE WRITTEN BY THE USER TO CALCULATE CMR AND CHAR 
AS FUNCTIONS OF ANGLE OF ATTACK FOR THE CONFIGURATION TO BE ANALYZED 

CURVE FIT OF CM AND CMA ABOUT REFERENCE POINT VS ANGLE OF ATTACK IN 
RADIANS FOR LRC BALLOON - REFERENCE CONF IGURATI CN 

CM AR= . 1435 i FCMR=-.0106+. 1435*4 S RETURN » END 


FUNCTION FCLBCIAI 

C 

C FUNCTIONS FCLBO, ETC, ARE FUNCTIONS TO BE WRITTEN BY THE USER TO 
C CALCULATE THE LATERAL STABILITY DERIVATIVES AS FUNCTIONS OF ANGLE 

C OF ATTACK FOR THE CONFIGURATION TO BE ANALYZEO. FUNCTIONS ARE 

C REFERENCED ONLY BY SUBROUTINE DERTRN. 

C 

C FUNCTIONS FCLBC , ETC, GIVE THE LATERAL STABILITY DERIVATIVES VS ANGLE 
C OF ATTACK IN RADIANS FOR THE LRC BALLOON - REFERENCE CONFIGURATION. 
C 

FCLB0=-.1435*SIN(A» S RETURN $ END 


FUNCTION FCL BCD I A ) 

FCL 8D0=0 . $ RETURN t END 


FUNCTION FCLPOIAI 

FCL PC=-.0237 t RETURN t END 


FUNCTION FCLROIA) 

FCLRG=— .1 78* S IN I A ) t RETURN t END 
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FUNCTION FCNBO(A) 

FCN B0 = - . 1 43 5 $ RETURN $ ENG 


FUNCTION FCNBCOIAI 
FCNBD0=.026 $ RETURN i ENO 


FUNCTION FCNPO(A) 

FCNP0 = -.0641*SIM2.*A) $ RETURN t END 


FUNCTION FCNRG < A ) 
FCNRC=-.109 $ RETURN 

END 


FUNCTION FCYB(A) 

FCY B=- .82 * RETURN l END 


FUNCTION FCYBC(A) 

FCYBD=-.099 A RETURN S ENO 


FUNCTION FC YPO ( A l 

FCYPC=. 494*5 INI A) I RETURN $ END 


FUNCTION FCYROIA) 

FCYRC-.685 * RETURN S ENO 


SUBROUTINE DERTRMX ,Z, A,CLB,CLBD,CLP, CL R, CN B, C NBD , C NP , CNR , C YB , 
+ CYBD,CYR,CYP I 

TRANSFERS ALL 12 LATERAL DERIVATIVES FROM REFERENCE POINT (MOMENT 
CENTER) TO CENTER OF MASS LOCATED X/C FORWARD AND L/C DOWN FROM 
REFERENCE POINT 

C YB=FCYB ( A I $ CYBD»FCYBD( A) A C YPQ=FC YPOI A ) $ CYRO-FC YROl A I 
CYP=CYPO»2.*Z*CYB i C YR =C YRO-2 . *X*C YB i CNB=FC NBO I A ) -X*C YB 
CNBD*FCNBDO< A)-X*CYSD $ CNP = FCNPO I A l-X*C YPO*2 . * Z*CN B 
CNR=FCNRO(AI-X*ICYRO*2.*CNBI t CL 8= FC LBOI A > + Z*C YB 
CL8C=FCLB00IA)*Z*CYBD $ CLP=FCLPO IA )+Z*(CYPO+2 .*CLB ) 
CLR=FCLRC(AI+Z*CYRO-2.*X*CLB t RETURN 
END SUBROUTINE DERTRN 
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SUBROUTINE TETHER! CDRAG, WC tCL 1 ,T 1 *G AMMA l f TO t GAMMA 0, X 1 , 1 1 J 

SUBROUTINE IS BASED ON THE ANALYSIS IN - 

NEUMARK, S.- EQUILIBRIUM CONFIGURATIONS OF FLYING CABLES OF 
CAPTIVE BALLOONS, AND CABLE DERIVATIVES FOR STABILITY 
CALCULATIONS. BRITISH R. AND M- NO. 3333, 1963. 

THE TETHER PARAMETERS COR AG* WC. Cllt U, AND GAMMA1 ARE INPUT 
THE TETHER PARAMETERS TO, GAMMAO, XI, AND Z 1 ARE OUTPUT 

EXTERNAL FlAM,FSIG S COMMCN/ P C/P , Q 

P- • 5* WC/CDR AG $ C- S QR T ( 1 +P *P ) $ EPS=l.E-8 

CALL PCMBERGIRLAMI, 0., GAMM A 1 , FLAM , E PS I $ T AU 1= T AU [ G AMMA1 ) 
RLAMO-RLAMi-CCR AG^T AUL + CH/T1 £ CALL NE H INT ( RL AMO , F L AM, 1 • , GAMMAO I 
CALL RCMBERGCDSIG, GAMMAO » GAMMA1,FSIG, EPS) 

X1=TI*0SIG/(CCRAG*TAUU £ TAUO=TAU (GAMMAO) 

T0=T1*TAU0/TAU1 $ Z1 = G Tl-TO ) /WC £ RETURN $ END 


FUNCTION FLAMIT) £ CO MMCN / P C / P , Q £ CT=COS(T> 

FL AN = ( ( Q+ P-CT ) / ( Q-P +CT ) ) * *( P/Q)/l 1- CT *CT + 2*P *C T I $ RETURN £ END 


FUNCTION FSIG(T) $ COMMON /P C/ P , Q $ CT=COS(T) 

FSIG= UQ + P-CTI/ (Q-P+CT ) >**(P/Q )/( 1-CT*CT+2*P*C T)*CT £ RETURN £ END 


FUNCTION TAU(T) $ COMMON/ PQ/ P , Q $ CT=C0SIT) 

T AU= I ( Q+P-CT 1 / C Q-P+CT 1 ) ** ( P /Q ) $ RETURN £ END 


FUNCTION YSUBY(CDRAG, GAMMAO. GAMMA1) $ COMMON / P C/P .Q 
EXTERNAL FT HE $ EPS=1.E-B £ C T=COS( GAMMA1 ) 

CALL POM BERG<DT HE, G AMMAO. GAMMA 1,FTHE, EPS > 

YSUBY=CDRAG*SQRT(TAU(GAMMA1)*<1-CT*CT+2*P*CT))/DTHE £ RETURN £ END 


FUNCTION FTHECT) t COMMON/PC/ P , Q $ CT=COS(TI 

FTHE=SQRT(( < Q+P-CT )/( Q-p + CT ) ) ** ( P/Q ) / ( 1-CT*CT+2*P*CT ) ) £ RETURN 

END SUBPROGRAM FTFE 


SUBROUTINE NE H I NT I C , F , XO , X I £ EPS=l.E-3 £ XT-XO £ 1=0 
C 

C SUBROUTINE CGMPUTES THE UPPER LIMIT X OF THE DEFINITE INTEGRAL 
C FROM 0 TC X OF THE FUNCTION F FOR WHICH THE VALUE OF THE 
C INTEGRAL C IS KNOWN 

C NEWTON ITERATION IS USED WITH THE VALUE OF THE INTEGRAL DETERMINED 
C BY SLBR OUT I NE ROMBERG 

c 

1 X = X T £ CALL RCMBERG(S,0.#X,F,EPS) $ X T=X + 1 C-S ) /F< X) £ 1=1+1 
PI2=1 .570796326 $ I F ( XT .GT .P I 2 I XT = PI2 $ IFIXT.LT.O.) XT = Q. 
1FII.LT. 2) GQ TO 1 £ I F ( A BS I X-XT > . G T . E P S ) GO TO 1 
X= X T $ RETURN $ END 



Printing of Files Containing Calculated Results 
for Sample Case 


A printing of each BCD file for the sample case is given. The headings essentially 
give the quantities printed using the FORTRAN variable names previously given. The 
lateral program uses the same files as does the longitudinal program. The information 
written on tapes 30 and 32 by the lateral program is identical to that written by the longi- 
tudinal program. Tapes 8, 11, 31, and 33 are also closely paralleled to the corresponding 
longitudinal files. Note that the headings PSI and PHI are used to denote i// and <p. 

Also, the letters P, S, and Y are used to denote <p, \p, and y in the headings on tapes 31 
and 33. 
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tL^TCATA 

COINS = C.IE-Ol, 

oelcd = c.o, 

OcLCL - C-0, 

05LCM - Q.Oi 
OcLCL6 ■ C.O, 

OcLCLeO ■ c.o, 

oelclp - C.O, 

DELClS = 0-0, 

D E LCM? = 0.0, 

OELCNBD = C.O, 

OELCNP - 0.0, 

oelcnr = 0.0, 

oelcyb = 0*0, 

OELCYdO = 0 .0 , 

OELCYP = C.Gr 
OELCYB = 0*0, 

RATlQKY - Q.1E+0L, 

S = 0.70<,E + C1, 

C t A R = Q«7fc*iE*0l, 
XXDI = Galt 1 E ♦ C 2 , 

Z Z C I = C»U4E*C3 P 
TMASS = Q.142E+02, 

AY^ASS = 0.2396+C2, 

W7S = Q.1C8E+C3, 

BUD* = 0.1SE4-03, 

0hR = 0,0, 

6L< * Q.215E+01, 

SHR = 0 .38E*Q0 • 

SLR = -Q. 66 E*CC, 

CGh = 0.10SE+03, 

CGL = Q.llE*Gl, 

TLR = G • 3 4 4E *C 1 » 

TTfi - 0.382E*01, 

CLC = Q . 6 1 E + 02 , 

CO I Art = 0.1^IE-01, 

CCC = 0.1I7E»01. 

riC = Q.3A3E + CC, 

RHC = 0.1225E+OL, 

vmin = a.iE+oi, 

DEL V = C.1E+01, 

NVEL = 51, 

t END 
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velocity, (reaurook m, i=i,nposi 

SVMBCL.UMGIPQOTI ill , I*l,NPOS) 


l.CCCOO 

-.135170 

6.0926O6E-O2 

—2.81 3337E-02 
.265843 

-B.429729E-02 

4.78413 


2.COOOO 

-.266450 

-.3743 86 

-5.864670E-03 

-.169685 


0. 

0. 

♦257232 

4.01727 

3,00000 

- » 3C6 809 

-.670200 

-2. 07 86 07 E -04 

-.256765 


0. 

0. 

.269696 

4.86837 

4.CCQQQ 

-.360604 

-.9344 84 

-2.98 84 20E-03 

-.345562 


0. 

0. 

.282354 

4.93369 

5.00000 

-.414394 

-1. 19071 

-9. 198426E-03 

-.435867 


0. 

0. 

.293780 

5.01052 

6.CCOOO 

-.467727 

-1.44349 

— 1. 68 1 1 26E-02 

-.527282 


0. 

0. 

.304180 

5.09736 

7,00000 

-.520678 

-1.69461 

- 2. 49 2605E-O2 

-.619547 


0. 

0. 

.313888 

5.19349 

0.00000 

-.574105 

-1.94497 

-3. 2708706-02 

— .71246B 


0. 

0. 

.323148 

5.29862 

9.00000 

-.627562 

-2.19504 

-4.01 7218E-02 

-.805916 


o. 

0. 

.332093 

5.41256 

1C.OOOO 

-.661313 

-2.44507 

-4.700 165E-02 

-.699806 

Cl RCL E 

0. 

0. 

.340765 

5.53512 

11 .0000 

-.735369 

-2.69520 

-5. 339067 E-OZ 

-.994079 


0. 

0. 

.3491 53 

5.66603 

12.0000 

-.789713 

-2.94550 

-5.910478E-02 

-1.08869 


0. 

0. 

. 357222 

5 * B 0497 

13.CCCQ 

-.644317 

-3.19599 

-6.4258 1 3E-02 

-1.18359 


0. 

0. 

. 3649 33 

5.95156 

14.CC00 

-.899152 

-3.44663 

-6. 8899 1 QE-02 

-1.27876 


o. 

0. 

.372251 

6.10540 

15.0000 

-.954191 

-3.69756 

—7.3081 60E-02 

-1.3 7415 


0. 

0. 

. 3791 53 

6.26605 

16.CG00 

-1.00941 

-3.94659 

-7 . 6860 02E-Q2 

-1 .469 74 


0. 

0. 

.385629 

6.43309 

17.CCC0 

-1. 06480 

-4.19976 

-8.028631E-02 

-1.56550 


0. 

0. 

. 39 1677 

6.606C8 

13,0000 

-1.12033 

-4.451 04 

-B. 340854 E-02 

-1.66140 


0. 

0. 

. 397303 

6.78463 

19. COCO 

-1.17601 

-4.70241 

-S.627016E-02 

-1.75742 


0. 

0, 

.402521 

fc. 96832 

20.0000 

-1.23181 

-4.95386 

— 0. 890988 E— 02 

-1.65353 

SGUAR E 

0. 

0. 

.407349 

7.15680 

21.0000 

-1.26772 

-5.205 36 

-9. 136179E-02 

-1.94973 


c. 

0. 

-4L1807 

7.34972 

22.CCOO 

-1.34375 

-5.45691 

-9 • 36 5563E-02 

-2.04590 


C. 

0. 

• 41 59 L6 

7.54673 

23,0000 

-1.39989 

-5.70048 

-9. 58 1719E-02 

-2.14229 


0. 

0. 

.419699 

7.74755 

24.0000 

-1.4561 2 

-5.96006 

-9. 786871 E-02 

-2.23863 


0. 

0. 

. 423179 

7.95189 

25.0C00 

-1.5 1244 

-6.21166 

-9.9S2928E-02 

-2.33499 


C. 

0. 

.426376 

8.15948 



26.COOO 

27-OCOO 

29. CCOO 

29.CGQ0 

3J.CC00 
□ r 4M0ND 

3 1 ■ CCO □ 

32. CCOO 

33. CCCO 
34 ♦ C COO 
3 5 • C 0 00 
36. CCOO 

37.0000 

33. 0000 

39. CCOO 

40. COOO 
TRIANGLE 

41. CCOO 

42. COOO 

43.0000 
44. CCOO 

45.0000 
4b. CCOO 

47.0000 
40.CCOC 

49.0000 

50. C CCO 
RT TPNGL 

51.0000 


-1. 56 8 B 5 

0. 

-1.62534 

0. 

-1.63191 

0 . 

-1.73856 

0. 

-1. 79527 

0. 

-1. 85204 

0. 

— 1.9C5B8 

C. 

-1.96579 

0. 

-2.02272 

— 2 -G 797 3 

0. 

-2. 13677 

C. 

-2. 19387 

0. 

-2.25101 

C. 

-2. 3031 8 

C. 

-2. 365a 0 

0. 

-2.42265 

0. 

-2.47994 

0. 

-2. 53726 

0. 

-2.5946 1 

0. 

-2.65L99 

C. 

-2. 70940 

C. 

-2. 76683 

0. 

-2. 8 2429 

0. 

—2. 83177 

0 . 

-2. 93928 

0. 

-2.99630 

C. 


-6.46325 

0. 

-6.71484 

0. 

-6.96642 

0. 

-7.21796 

0. 

-7.46953 

0. 

-7.72106 

0. 

-7.97257 

0 . 

-B. 22406 

0 . 

-8.47552 

0 . 

-8.72696 

0. 

-8.97830 

0. 

-9.22970 

0. 

-9.48115 

0. 

-9.73250 

0. 

-9.90382 

0. 

-10.2351 

0. 

-10. 4064 
0. 

-10.7377 

0. 

-10.9389 

◦ . 

-11.2401 

0. 

-1L. 4913 
0. 

-11. 7425 

0. 

-11.9937 

0. 

-12.2449 

0. 

-12.4960 

0. 

-12. 7471 

0. 


-.101715 

.429313 

103540 

.432003 

105317 
. 434480 

107054 
. 436746 

-.103761 

.433621 

-. 110445 
. 440721 

-.112112 

. 442458 

-.113766 

.444045 

-.115413 

.445494 

-.117055 

.446814 

-. 118696 
. 448014 

120337 

.449104 

-.121902 

.450091 

-.123632 

.453982 

-. 125268 
.451784 

-.126950 

.452502 

120621 

.453142 

-.130301 

.453709 

-.131990 
• 4542 C3 

-. 133608 
.459642 

-. 135397 
.955015 

-.137115 

.455331 

-. 138844 
.455593 

-.140583 

.455804 

-.142332 

.455967 

-.144092 

.456083 


-2.43130 
8. 370 10 

-2.52777 

8.50352 

- 2 . 6 24 1 7 
B. 79954 

-2.72057 

9.0 1790 

-2.01696 

9.23966 

-2.91335 
9.461 42 

-3.00972 

9.68613 

-3.106CB 

9.91265 

-3.20243 
10. 1409 

-3.29876 

10.3706 

-3.395C8 

10.6019 

-3.99137 

10.8395 

-3.58765 

11.0665 

-3.60391 

11.3036 

-3.78015 

11.5399 

-3.07638 
11. 7773 

-3.97250 

12.0156 

-4.06877 
12. 2549 

-4.16494 

12.4951 

-4.26109 

12.7362 

-4.35723 

12.9760 

-4.45325 

13.2206 

-4.54945 

13.4639 

-4.64554 

13.7078 

-4.74161 

13.9525 

-4.03766 

14.1977 



Listing of tape 8 for sample case (modal ratios or eigenvectors and characteristic roots ) 


LATERAL STABILITY OF TETHERED BALLCCN - LRC BALLOON - REFERENCE CONFIGURATION 11/17/72 03- 33. 53. 


EIGENVECTORS 



COMPLEX ROOT- 

-PE ALi IMAG 

Y/PSIr H/DEG-REAL » 1 MAG 

PH I /P SI f decvoeg-real* IMAG 

°$It 

DEG-REAL 

VELOCITY 3 

l.COOO 

-.13518 

6. 89261E-02 

-3.36829E-0Z 

2«9 3396E-03 

2 .386896-04 

4*22 7 23 E-05 

1.0000- 

0. 


-2.81334E-02 

.26584 

1.2367 IE -02 

-4 .2074B E-02 

7. 79867E-04 

-4.75541E-04 

1.0000 

0. 


-8.42 S73E-02 

4 . 784 L 

6.009126-04 

-6.15610E-04 

-.12250 

1 .9 83 72 E- 03 

1.0000 

0. 

VELX ITY = 

2. OCOO 
-.26646 

0. 

3. 86002E-03 

0. 

8.90943E-04 

0. 

1 .0000 



-•37439 

0. 

-1. 11 11 3E-02 

0. 

6.27 140E -04 

0. 

1.0000 

0 . 


-5. 064670-03 

.25723 

- 1 . 24 897E-03 

- 9 .952 Q9E-02 

7.612 05 E -04 

-1.13124 E-03 

1.0000 

0. 


-.16468 

4.6173 

6. 43 9Q0E-O4 

— 1.24825 E— 03 

-.12511 

3 .99629E-G3 

1.0000 

0. 

VELOCI TY= 

3.0000 

-•30601 

0. 

. 11976 

0. 

2.56077E-03 

0. 

l .0000 

0 . 


— .67 C2 1 

0. 

-1 . 06C71E-02 

0. 

8.0911 5E-Q4 

0. 

1.0030 

0. 


-2.C7861E-04 

.26970 

-1. 18541E-0Z 

-.15539 

8.54964E-04 

- 1 .77141 E-03 

l .0000 

0. 


-.25676 

4. 8684 

7.02602E-04 

— 1.91073 E— 03 

-.12981 

6.043 5 1 E-03 

1.0000 

0. 

VELOCITY 3 

4. 0000 
-.3606C 

0. 

.36950 

0. 

6.30787E-03 

0. 

1 .0000 

0. 


-.43440 

0. 

-1.00563E-02 

0. 

1*0553 3E -03 

0. 

1.0000 

0. 


-2. 9S642E-03 

.26235 

-2.41561E-02 

-.20809 

9 . 93299E -04 

-2 .4002 8 E-03 

1 .0300 

Ci . 


-.34558 

4.9337 

7 . 62733E-Q4 

-2.60910E-03 

-.13289 

0.0 9989 E-03 

1.0000 

0. 

VELOCITY 3 

5.0000 

-.41439 

0. 

1.2058 

0. 

1 . 87768E-02 

0. 

1 .0000 

0 . 


-1.1907 

0. 

-9. 7B014E-03 

0. 

1. 350516-03 

0. 

1 .0000 

0. 


-9.19843E-03 

.29178 

-3. 82 4 8 IE— 02 

-.25873 

1 . 162 52E-03 

- 3 .0 32 90E-03 

1.0000 

0. 


-.43587 

5.0105 

8. 1067 9E-04 

- 3* 3 42 36E-03 

-.13675 

1.011 69E-02 

1 .0000 

0. 

VELOCITY 3 

6.0000 

-.46773 

0. 

-19. B04 

0. 

-.29473 

0. 

1 .0000 

0. 


-1.4435 

0. 

-9. 62444E-03 

0. 

1 . 686 77E-03 

0. 

1.0000 

0. 


-1 .681 1 3E-02 

.30418 

-5. 36 27 IE-02 

-.30684 

1.355426-03 

-3.6 8033 E-03 

1.0000 

0. 


-.52728 

5.0974 

8. 35 3 10E-04 

-4 .1 03 84E-03 

-.14000 

1.2 03 91 E— 02 

1.0000 

c . 

VELOCITY 3 

7-0000 
- • 52 Q B8 

0. 

-1.0665 

0. 

- 2 . 686 706-02 

0. 

I .0000 

0. 


-1*6946 

0. 

- 9. 52 921E-03 

0. 

2.054 96E-03 

0. 

1.0000 

c . 


-2.46269E-02 

.31309 

-6.96797E-02 

-.35231 

1.56591E-03 

-4 *3 51 92 E-03 

1.0000 

c . 


-.61955 

5.1935 

8. 28839E-04 

-4.68316E-03 

-.14247 

1.3 8199 E-02 

1.0000 

c . 

VELOCITY 3 

8.COOQ 

-.57411 

0. 

-1.2025 

0. 

— 1 , 69993E-02 

0. 

1.0000 

c • 


-1.9450 

0. 

-9.46765E-03 

0. 

2 .445636 -03 

0. 

L.0000 

c . 


-3 .27087E-02 

.32315 

-8. 58344E-02 

-.39517 

1.700O8E-O3 

- 5 .05451 E-03 

1.0000 

c . 


-.71247 

5.2906 

7. 06895E-O4 

-5.66836E-03 

-.14413 

1.5 4243 E-02 

1.0000 

c . 

VELOCITY 3 

9.0000 
-. 42756 

0. 

-.97593 

◦ . 

-1 . 365 20E-02 

0. 

1 .0000 

0. 


-2.1 950 

0. 

-9.42631E-03 

0. 

2.B4973E-03 

0. 

1.0000 

3. 


-4.01722E-02 

.33209 

-.1016 5 

— .435 6 L 

2.016096-03 

-5*793 04 E-03 

1 .0000 

c . 


-.80592 

5.4126 

7.O0233E-O4 

- 6.44747E-03 

-.14506 

1 .68400 E-02 

L .0000 

0 . 

VELOCITY 3 

10.000 CIRCLE 

-.68131 0. 

-.86390 

0. 

- 1 . 20237E-Q2 

0. 

1.0000 

c. 


-2.4451 

0. 

-9. 39 777E-03 

0. 

3.25911E-03 

0. 

1.0000 

0. 


-4 • 708 17E-02 

.34077 

-.11686 

-.47394 

2 . 24432E-03 

-6.56955E-03 

1.0000 

c . 


- .89981 

5.5351 

5.94197E-04 

-7.20963E-03 

-.14539 

1 .80656 E-02 

1 .0000 

c . 

VELOCITY* 

11*000 

-.73537 

0. 

-.79835 

0. 

- 1 . 10947E -02 

◦ . 

1.0000 

0 . 


-2.6552 

0. 

-9. 37767E-03 

0. 

3.666BLE-03 

0. 

1.0000 

0 . 


-5.33907E-02 

.34915 

-.13 130 

-.51050 

2.46 76 IE-03 

-7. 38407 E-03 

1.0000 

0. 


-.994C0 

5.6660 

4.4806 OE -04 

- 7.946Q1 E-03 

-.14524 

1.91106E-02 

1.0000 

0. 

VELOCITY* 

12.000 

-.73971 

0. 

-.75577 

0. 

-1.051 55E— 02 

0. 

L.0000 

0. 


-2.9455 

0. 

-9. 3632 8E-03 

0. 

4 • 067 16E-03 

0. 

1.0000 

0. 


—5.91 Q48E—02 

.35722 

14495 

-.54566 

2.68142E-03 

-8. 23508 E-03 

1.0000 

0. 


-1.0887 

5.0050 

2.74343E-04 

— 0.649 59 E— 03 

-.14475 

1.99909F-02 

1.0000 

0 . 
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velocity* 


velocity* 


VELOCITY 


VELOCITT* 


VELOCITY* 


VELOCITY* 


VELLC1 TY= 


VELOCITY* 


VELOCITY* 


velocity* 


VELOCITY* 


VELOCITY* 


VELOCITY* 


13.000 


-.84432 

0. 

-. 72621 

0. 

-1.01339E-02 

0. 

1 .0000 

-3.1960 

0. 

-9.352676-03 

0. 

4.45 5 82E- 03 

0. 

1.0000 

-6.42581E-02 

.36493 

15765 

-.57974 

2.831 93 E— 03 

-9.12001 E-03 

1 .0000 

-1.1036 

5.5516 

7. 81978E-05 

-9* 31564E— 03 

-.14401 

2.07254E-02 

1 .0000 

14.000 

09915 

0. 

-.70467 

0. 

-9.87266E-03 

0. 

l .0000 

-3.4467 

0. 

-9.34526E-03 

0. 

4. 32959E-03 

0. 

1.0000 

-6.8899LE-02 

.37225 

-.17007 

-.61300 

3.06604E-03 

-1.003 57 E-02 

1 .0000 

-1.2700 

6.10 54 

-1.35O90E-O4 

-9.941 29E— 03 

-.14311 

2.13334E-02 

1.0000 

15 . OOC 

-.55419 

0. 

-.68638 

0. 

-9.69897E-03 

0. 

1 • 0000 

-3.6976 

0. 

—9. 33967E-03 

0. 

5 • 1 86 32E-03 

0. 

1.0000 

-7.3O016E-O2 

.37915 

18171 

-.64566 

3.23135E-03 

-1 .097896-02 

L .0000 

-1.3742 

6.2660 

-3. 60505E— 04 

- 1 . 052 53E-02 

-.14212 

2.18337 E-02 

1 .0000 

16.000 

-1.0094 

0. 

-.67569 

0. 

-9.55706E-03 

0. 

1.0000 

-3.9486 

0. 

-9. 33554E-Q3 

0. 

5.5Z47QE-03 

0. 

1.0000 

-7 .636006-02 

.36563 

-.19286 

-.67791 

3 .376 1QE-03 

-L.19459E-02 

1 .0000 

-1.4697 

6.4331 

-5.93457E-04 

- 1 ■ 1 0676E-02 

-.14103 

2.22431 E-02 

1 .0000 

17. COO 

-1.0646 

0. 

-.66553 

0. 

-9.46072E-03 

0. 

1.0000 

-4. 1998 

0. 

-9.33249E-03 

0. 

5 • 64409E - 03 

0. 

1.0000 

-0.Q2063E-OZ 

.39160 

20363 

-.70987 

3 . 49906E— 03 

- 1 - 293 37 E-02 

1 .0000 

-1.5655 

6.6061 

-8. 299B6E— 04 

-1.15692E-02 

-.14002 

2.2 5768 E-02 

1.0000 

10.000 

-1.1203 

0. 

-.65737 

0. 

- 9.38938E-03 

0. 

1.0000 

-4.4510 

0. 

-9. 33023E-03 

0. 

6.14440E-03 

0. 

1.0000 

-8.34065E-02 

.39730 

21410 

-.74164 

3 . 59950E -03 

-1 .393 90E-02 

l .0000 

-1.6614 

6,7846 

-1. 06676E-03 

-1.20318E-02 

-.13898 

2.284 T6L-02 

1.0000 

19.000 

-1.1760 

0. 

-.65060 

0- 

-9 . 335 90E-03 

0. 

1.0000 

-4.7024 

0. 

-9. 32657E-03 

0. 

6.42590E-03 

0. 

L .0000 

-0.62 7 02E— 02 

.40252 

22435 

-.77331 

3.67705E-03 

-1.49591E-02 

1.0000 

-1.7574 

6.9683 

-1. 30109E-03 

- 1 -2 45 75 E— 02 

-.13797 

2. 30666 E-02 

1.0000 

20.000 

-1.2316 

SQUARE 

0. 

-.64494 

0. 

- 9 . 29 53 9E- 03 

0. 

1.0000 

-4,9535 

0. 

-9. 32735E-03 

0. 

6.68917E-03 

0. 

l.OQOQ 

-8.09C99E-O2 

.40735 

-.23445 

-.00491 

3.73161E-03 

-1.59913E-02 

1.0000 

-1.8535 

7.1566 

-1. 53085E-03 

-1.28405E-O2 

-.13700 

2.32431 E— 02 

1 .0000 

21.000 

-1.2377 

0. 

-.64014 

0. 

-9.26436E-03 

0. 

uoooo 

-5.2054 

0. 

-9. 32647E-03 

0. 

6.93495E-03 

0. 

1.0000 

-9. 13610E-O2 

.41181 

-.24446 

-.83650 

3.76337E-03 

- 1 . 70336E-02 

1.0000 

-1.9497 

7.3497 

-L.75442E-03 

-1.32074E-02 

-.13607 

2.33846E-02 

1 .0000 

22.000 

-1.3438 

0. 

-.63605 

0. 

-9.24042E-03 

0. 

1.0000 

-5.4569 

0. 

-9. 32564E-03 

0. 

7 * 164 12E-0 3 

0. 

1 .0000 

-9.365566-02 

.41592 

25443 

-.86810 

3.77263E-03 

-1.00837 E— 02 

1 .0000 

-2.0460 

7.5467 

-1. 97065E-03 

— 1.35367 E— 02 

-.13519 

2.349 76E-Q2 

L • 0000 

23.000 

-1.3995 

0. 

-.63251 

0. 

-9.221 76E-03 

0. 

1.0000 

-5.7085 

0. 

-9.32541E-03 

0. 

7. 37 762E- 03 

0. 

1.0000 

-9.56172E-02 

.41970 

-.26441 

-.89972 

3. 75986E-03 

-1 .91401E-Q2 

1 .0000 

-2.1423 

7.7475 

-2. 17672E-03 

- 1 .303 8 3E -02 

-.13437 

2. 35073E-O2 

1.0000 

24.000 

-1.456L 

0. 

-.62945 

0. 

-9.20712E-03 

0. 

1.0000 

-5.9601 

0. 

-9.3251 2E-03 

0. 

7.57644E-03 

0. 

L .0000 

-9. 73687E-02 

.42318 

-.27444 

-.93138 

3.72559E-03 

- 2 .02012 E-02 

1.0000 

-2.2306 

7.9519 

-2.37813E-03 

- 1.41159 E- 02 

-.13359 

2.36580E-02 

1 .0000 

25.000 

-1.5124 

0. 

-.62676 

0. 

-9.19553E-03 

0. 

1.0000 

-6.2117 

0. 

-9.32495E-03 

' 0. 

7,76 1 54E-03 

0. 

1.0000 

— 9.98 29 3E-02 

.42638 

-.28454 

--96308 

3.67 040E-03 

-2.12656E-02 

1.0000 

-2.3350 

8.1595 

-2. 56862E-03 

- 1.43703E-02 

-.13287 

2 .371 32 E-02 

1.0000 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 



VELGC IT Y= 

26.000 

-1.5609 

-6.4633 

-.10172 

-2.4314 

0 . 

0 . 

.42931 

8.3701 

-.62440 
- 9.32 466E-03 
-.29476 
-2. 75 009E-G3 

VELOCITY* 

27.000 

-1.6253 

-6.7149 

-.10354 

-2.5279 

0 . 

0 . 

.43201 

9.5835 

-.62231 
-9.32483E-03 
-. 30510 
- 2. 92 262E-Q3 

velocity* 

26.000 
-1.681 9 
*6.9664 
-. 10532 
-2.6242 

0 . 

0 . 

.43448 

9.7995 

-.62 045 
-9.32486E-03 
-.31560 
-3.08637E-03 

VELOCITY* 

29.000 

-1.7386 

-7.2180 

-.10705 

-2.7206 

0 . 

0 . 

.43675 

9.0180 

- • 61 B79 
-9.32492E-03 
-.32627 
- 3. 24 1 59E-03 

VELOCITY* 

30.000 

-1.7953 

-7.4695 

-.10876 

-2.8170 

DIAMOND 

0 . 

0 . 

.43882 

9.2387 

-.61730 
—9. 32 500E-03 
-.33 713 
-3.368586-03 

VELOCITY* 

31.000 

-1.8520 

-7.7211 

-.11044 

-2.9133 

0 . 

0 . 

. 44072 
9.4614 

-.61595 
-9. 32 511E-03 
-.34820 
-3.52 768E-03 

VELOCITY* 

32.000 

-1.9C89 

-7.9726 

-.11211 

-3.0097 

0 . 

0 . 

.44246 

9.6861 

-.61474 
-9. 32 523E-03 
-.35947 
-3.65925E-03 

velocity= 

33.000 

-1.9658 

-0.2241 

-.11377 

-3.1061 

0 . 

0 . 

.44405 

9.9127 

-.61363 
-9.32 536E-03 
37096 

-3.76366E-03 

velocity* 

34.000 

-2.0227 

-6.4755 

-.11541 

-3.2024 

0 . 

0 . 

.44549 

10.141 

-.61263 
-9. 32 550E-03 
-.38272 
—3.901 28 E-03 

velocity= 

35.000 

-2.0797 

-8.7270 

-.11705 

-3.2900 

0 . 

0 . 

.44681 

10.371 

-.61171 
-9. 32 5 64 E-03 
-.39470 
- 4. 01 2 49E-03 

VELOCITY* 

36.000 

-2.1368 

-9.9764 

-.11870 

-3.3951 

0 . 

0 . 

.44301 

10.602 

-.61087 
-9. 32 57 8E-03 
-.40694 
-4. 11 764E-03 

VELOC ITY- 

37.000 

-2.1939 

-9.2250 

-.12034 

-3.4914 

0 . 

0 . 

.44910 

10.835 

-.61010 
-9.32592E-03 
-.41943 
-4 .217 09E-03 

VELOCITY* 

38.000 

-2.2510 

-9.4611 

-.12198 

-3.5877 

0. 

0 . 

.45009 

11.068 

-.60940 
-9. 32606E- 03 
-.43219 
-4.31 116E-03 


0. 

-9.186 29E-03 

0 . 

1.0000 

0 

0 . 

7.93387E-03 

0 . 

1 .0000 

0 

-.99483 

3 • 594 91E-0 3 

-2-23324E-02 

1.0000 

0 

- 1 .4604 LE-Q2 

-.13219 

2.3 75 57E-02 

1 .0000 

0 


0. 

-9. 17 007E-O3 

0. 

1 .0000 

0 

0. 

8.09435E-03 

0. 

1.0000 

0 

-1.0266 

3 . 49975E-0 3 

- 2. 340 04 E— 02 

1 .0000 

0 

-1.48189E-02 

-.13155 

2.37830E-02 

1.0000 

0 


0 . 

-9.1 7288E-03 

0 . 

1.0000 

0 

0 . 

8 • 243 85E-03 

0 . 

1.0000 

0 

-1.0584 

3.38553E-03 

-2.44689E-02 

1 .0000 

0 

-1.50167E-02 

-.13096 

2.38119E-02 

1.0000 

0 


0. 

-9.16B00E-03 

□ . 

1.0000 

0 

0. 

8.36318E-03 

0. 

1 .0000 

0 

-1.0903 

3.25267E-03 

-2.55372E-02 

1.0000 

0 

-1.51989 E— 02 

-.13041 

2.38290E— 02 

1.0000 

0 


0. 

-9.16400E-03 

0. 

L • 0000 

0 

0. 

8.5131 IE-03 

0. 

1.0000 

0 

-1.1222 

3. L0235E-03 

-2 .66047 E- 02 

L .0000 

0 

-1. 53670 E- 02 

-.12909 

2.38406E-02 

1.0000 

0 


0. 

-9. 16070E-03 

0. 

1.0000 

0 

0. 

8.634376-03 

0 • 

1 .0000 

0 

-1. 1541 

2.93453E-03 

-2.767 08 6-02 

1.0000 

0 

-1.55223E-02 

-.12941 

2 .3 64 70E-O2 

1.0000 

0 


0. 

-9. 15797E-03 

0 . 

1.0000 

0 

0 . 

9.74761E-03 

0 . 

1.0000 

0 

- L. 1861 

2 • 74 995E— 0 3 

-2-87352 E-02 

1 .0000 

0 

-1.56858E-02 

-.12896 

2.38513 E— 02 

1.0000 

0 


0. 

-9 . 1 5568E-03 

0. 

1.0000 

0 

0. 

8. 85 3 44 E-03 

0. 

1.0000 

0 

-1.2181 

2. 54 909 E-03 

-2.97973E-02 

1 .0000 

0 

-1.57988E-02 

-.12854 

2. 38520 E-02 

1.0000 

0 


0. 

-9 . 153776-03 

0. 

1 .0000 

0 

0. 

8.95244E-03 

0. 

1 .0000 

0 

-1.2500 

2- 33 245E-03 

-3.08570E-02 

1 .0000 

0 

- 1.59220E-02 

-.12815 

2.38504 E-02 

1 .0000 

0 


0. 

-9.15215E-03 

0. 

1.0000 

0 

0. 

9.04512E-03 

0. 

1.0000 

0 

-1.2820 

2.10045E-03 

-3.19139 E-02 

i.0000 

0 

- 1 .60365E-02 

-.12778 

2.38469E-02 

1.0000 

0 

0. 

-9.15077E-03 

0. 

1 .0000 

0 

0. 

9.131 97E-03 

0. 

1.0000 

0 

-1.3140 

1 • 853 51E-03 

-3.29678E- 02 

1.0000 

0 

-1 .61428E-02 

-.12744 

2.384206-02 

1.0000 

0 


0 . 

-9.14960E-03 

0 . 

1.0000 

0 

0 . 

9.21 342E-03 

0 . 

1.0000 

0 

-1.3459 

1. 59201E— 03 

-3.401 85E-02 

1 .0000 

0 

-1 .62419E-02 

-.12712 

2.38359E-02 

1.0000 

0 


0. 

-9.14659E-03 

0. 

1.0000 

0 

0. 

9 » 28907E- 03 

0. 

1.0000 

0 

-1.3779 

1.31631E-03 

-3.50659 E-02 

l .0000 

0 

- 1 .63341 E— 02 

-.12682 

2. 38290 E-02 

1.0000 

0 


76 



VELOCITY 3 

39*033 

-2.3082 

0. 

-.60674 

0. 

-9.14772E-02 

0. 

l .0000 


-9.7325 

0. 

-9.32620E-03 

0. 

9.36170E-03 

0. 

L .0000 


-.12343 

.45098 

-.44521 

-1.4096 

1.02674E-03 

-3.61097E-02 

1-0000 


-3.6839 

11 .304 

-4 .40018 E-Q 3 

- 1 .6 42 0 3E-02 

-.12653 

2.33 2 14E-02 

1 .0000 

velocity- 

40.000 

-2.3654 

TRIANGLE 

0. 

-. 6D814 

0. 

— 9.14697E-03 

0. 

1 .0000 


-9.9838 

0. 

-9. 32633E-03 

0. 

9.42925E-03 

0. 

1 .0000 


-.12529 

.45178 

-.45851 

-1.44L7 

7.236Q9E-04 

-3. 71498 E-02 

l .0000 


-3.7002 

11.540 

-4. 484446-03 

- 1 .6 5007 E— 02 

-.12627 

2. 3 81 33 E-02 

1 .0000 

VELOCITY 3 

41.000 

-2.4227 

0. 

-.60758 

0. 

-9. 14631E-03 

0. 

L .0000 


-10.235 

0. 

-9.32646E-03 

0. 

9.49283E-03 

0. 

1 .0000 


-.12695 

.45250 

-.47208 

-1.47 36 

4.07192E-04 

-3. 91 86 IE- 02 

1.0000 


-3.8764 

11.777 

-4. 56425E-03 

-1.65760E-02 

-.12602 

2.3 8048E-02 ' 

1 .0000 

VELOCITY* 

42.000 
-2 .4799 

0. 

60706 

0. 

-9.145736-03 

0. 

1 .0000 


-10.486 

0. 

— 9. 32 6 59 E— 03 

0. 

9 • 55 273E-03 

0. 

1 .0000 


-.12862 

.45314 

40594 

-1. 5054 

7 . 77566E-05 

-3.921 96E-02 

1 .0000 


-3.9726 

12.016 

-4.63597E-03 

- 1 .664656—02 

-.12578 

2.3796 IE-02 

1.0000 

VELOCITY 3 

43.000 

-2.5373 

0. 

-.60653 

0. 

-9.145236-02 

0. 

1.0000 


-10.738 

0. 

-9.32671E-03 

0. 

9.60921E-03 

0. 

1.0000 


-.13030 

.45371 

-. 50C0B 

-1. 53 72 

-2 ♦ 644 55 E- 04 

-4.02471 E-02 

1 .0000 


-4 . 0688 

12.255 

-4. 71 L55E-Q3 

- 1.67126E-02 

-.12556 

2. 37Q73E-02 

1.0000 

VELOCITY 3 

44 .000 
-2.5946 

0. 

-.60613 

0. 

-9. L4473E-03 

0. 

1 .0000 


-10.939 

0. 

-9. 32683E-03 

Q. 

9.66251E-03 

0. 

1.0000 


13L99 

.45421 

51451 

-1.5687 

-6. 19217E-04 

-4.12715E-02 

L .0000 


-4.1649 

12.495 

— 4. 77 954E— 03 

— 1 .6 7747 E-02 

-.12535 

2. 37784 E-02 

l .0000 

velocity* 

45 .COO 
-2.4520 

0. 

-.60571 

0. 

-9. 14438E-03 

o. 

L.0000 


-11.240 

0. 

-9. 32695E-01 

0. 

9. 712856-03 

0. 

1 .0000 


-.13369 

.45464 

-.52922 

-1.6006 

-9.863Z2E-04 

— 4. 2 29 18E-02 

l .0000 


-4.2611 

L 2.736 

-4. Q4406E-03 

-1.68330E-02 

-.12515 

2. 37696 E-02 

1 .0000 

VEL0C1TY= 

46.000 
-2 .7094 

0. 

-.60532 

0. 

-9 ■ 144Q3E— 03 

0- 

1 .0000 


-11.491 

0. 

-9.32706E-Q3 

0. 

9 . 76044 E -0 3 

0. 

1 .0000 


-.13540 

.45502 

-.54423 

-1.6322 

-1.36558E-03 

-4.330 79E-02 

1.0000 


-4-3572 

12.970 

-4.90532E-03 

-1.6887SE-02 

-.12496 

2.37606E-02 

1.0000 

VELOCITY- 

47. COO 
-2.766 0 

0. 

-.60495 

0. 

-9. 14 37 L E —0 3 

0. 

1.0000 


-11.743 

0. 

-9.32717E-03 

0. 

9.00 547E-03 

0 • 

1.0000 


-.13712 

.45533 

-. 55954 

-1.6630 

-1.7568 LE— 0 3 

-4.431 97 E-02 

1 .0000 


-4.4533 

13.221 

-4. 96 352E — 03 

— 1 .69395E— 02 

-.12479 

2.37520 E-02 

1 .0000 

VELOCITY 3 

48. COO 
-2.8243 

o. 

-.60461 

0. 

-9 . 14342E — 03 

0. 

1 .0000 


-11.994 

0. 

-9. 32727E-03 

0. 

9. 84 SLOE -03 

0. 

l .0000 


-.13084 

.45559 

-.57514 

-1. 6953 

-2.159846-03 

-4.532 72 E-02 

1.0000 


-4.5494 

13.464 

-5.01984E-Q3 

-L.69883E-02 

-.12462 

2.37434E-02 

1.0000 

V E L UC l T Y = 

49.000 
-2.681 8 

0. 

-.60429 

0. 

-9 .143165-03 

0. 

1.0000 


-12.245 

0. 

-9. 32737E-03 

0. 

9. 88850E-03 

0. 

1 .0000 


-. 14058 

.45580 

59104 

-1.726? 

-2.574 53E— 03 

-4. 63303 E-02 

1.0000 


-4.6455 

13.708 

—5. 07 145E-03 

- 1.70342F-02 

- .12446 

2.373506-02 

1.0000 

VELOCITY* 

SJ .000 
-2.9393 

RT TPNGL 

0. 

-.60398 

0. 

-9.L4293E-03 

0. 

1 .0000 


-12.496 

0. 

-9.32 747E-03 

0. 

9.92682E-03 

0. 

1 .0000 


-. 14233 

.45597 

-.60723 

-1. 7581 

-3.C0073E— 03 

- 4 • 73290E-02 

1 .0000 


-4.7416 

13.952 

-5.12152E-03 

-1 . 707 7 7 E-02 

- • 12 4 3 L 

2. 372 67 E— 02 

1.0000 

VELOC IT Y = 

51.000 

-2.9966 

0. 

-.60370 

Q. 

-9 . 14272E-03 

0. 

1.0000 


-12.747 

0. 

-9.32756E-03 

0. 

9. 563136-03 

0. 

1 .0000 


-.14409 

.45608 

-.62373 

-1.7393 

-3 . 43 83 IE -0 3 

-4. 832 3 1 E-02 

L .0000 


-4.6377 

14.198 

-5. 16920E-03 

- 1.711 67E-02 

-.12417 

2.371 36 E- 02 

1 .0000 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 


0 

0 

3 

0 


0 

0 

0 

0 


0 

0 

0 

3 


0 

0 

3 

0 


0 

0 

0 

0 


3 

0 

0 

0 


3 

3 

3 

0 



00 


Listing of tap_e_J3Q for_sample case (trim angle of attack and aerodynamic coefficients) 


LATERAL STABILITY <jF TFTHFPFD BALLtCN - LR.C BALLCJ JN - REFERENCE CONFIGURATION 11/17/ 72 00. 33.53. 


AERODYNAMIC COEFFICIENTS 


VELOCITY ALPHAD 


CO 

CL 

CL 9 

CL0O 

CLP 

CLR 

CNB 

CNBD 

CNR 

CYB 

CYRD 

CYP 

CYP 





1.000 

8.767 

5.9599F-02 

-.2807 

9.9 706 E- 02-1 .5439 E-02 
-.8200 - 8 . 9000 E— 0 2 

2.000 

8.550 

5.94 53E-02 
-.2808 

9. 6972 E- 02-1 .5351 E-02 
-.6200 -8 • 9000 E-0 2 

3.000 

0 .250 

5.9284E-0 2 
-.2808 

9.3205E-02-1.5228E-0 2 
-.8200 -8.9000E-02 

4.000 

7.923 

5.9137E-02 

-.2803 

9.91 06 E-02 -1.5094 E-02 
-.0200 - 0 * 9000 E-02 

5.000 

7.609 

5.9O26E-02 
- .2808 

8.5161E-02-1 .4964 E-02 
- .B200 -8.9000E-D2 

6.000 

7.327 

5 . 8948E- 0 2 
-.2809 

ti.L624E-02-1.434Bt-02 
-.8200 -8 . 9000 E-02 

7. OOO 

7.086 

5.8894E-02 

-.2009 

7.8 530E-02-1 .4748 E-02 
-.8200 - 8 . 9000 E-02 

8.000 

6.884 

5.8856E-02 
-.2809 ' 

7 .6016 E— 02-1 .4663 E-02 
-.8200 -8.9000L-02 

9.000 

6.716 

5.6830E-02 

-.2809 

7. 3882 E-02- 1.4 593 E-02 
-.3200 -0 .9000 E-0 2 

10.00 

6.577 

5.9611E-Q2 

-.2009 

7.2 110E- 02-1 .4 536 E-02 
-.8200 - 0. 9000 E-02 

11.00 

6-462 

5.8798F-02 

-.2809 

7 • 0640 E-Q2-1 .4408E-O2 
-.8200 -8 . 9000 E— 02 

12.00 

6.367 

5.0787E-O2 

-.2809 

6 . 94 15 E— 02-1 .4440 E-02 
-.3200 -8 • 9000 E-02 

13.00 

6.287 

5 • 8779E-02 

- . 2809 

6.0309E-O2-1.4414E-O2 
-.8200 — d . 9UUU t— 02 

14.00 

6.220 

5.0773E-O2 

-.2009 

6.7526E-02-1 .4386 E-02 
-.8200 -0.9000 E-02 


6.9B08E-04-2 .4046E-02-2. 8041 E-02-2 . 5033E-02 3 . 8858E-02-2 . 979 5F-02 
8.8154E-02 .9219 

6.4945E-04-2 .401 2 E-02 -2. 7O26E-02-2 . 5010 E-02 3 . 80 61 E- 02-2 . 9096E-02 
8 . 54 1 l E-02 .9220 

5.821 5E-04-2 .3964 E-02-2. 562 IF- 02-2 .4980 E-02 3 .88 64 E-02-2 .0 12 5E-02 
8.16146-02 .9220 

5 .OB71E-04-2 .3917E-02 — 2.40 37 E-02-2 .4952E-Q2 3. 896TE- 02- 2. 7062E-02 
7.7469E-02 .9221 

4. 3807E- 04-2 .387 5E-02-2. 261 2 E-02-2 .4928 E-02 3 . R869E-02-2 .6037E-0Z 
7.3480E-02 .9221 

3.74 88E-04-2 .3840E-02-2 . 1292E-02-2 . 4909E-02 3.887 IE- 02-2 . 5 11 9E-02 
6.99HE-02 .9222 

3 .2067E-04— 2 .3813E-02-2.0160E-02-2.4896E-02 3 .8873E-02-2 .4329E-02 
6.6848E-02 .9222 

2.7522E-04-2.379 2E-02-1.92 LO E-02-2 . 4886 E-02 3 . 88 74E-02- 2 . 366 5F-02 
6 • 42 79 E-02 .9222 

2 . 37 50E— 04-2 .3776E- 02-1.84 22E-02-2.4879E-02 3 . 68 75E-02-2 .3 1 14E-Q2 
6.2140E-O2 .9222 

2.0632E-04-2.376 4E-02-1.77 71 E-02-2 .487 4 E-02 3 .86 75E- 02-2 . 26 5 0E-O2 
6.03B5E-02 .9223 

1 .8051 E — 04— 2 . 375 4E-0 2-1.7 2 31 E-02-2 .4871 E-02 3 . 8876E-02-2 . 22BOE-02 
5.8925F-02 .9223 

1 .5907E-0 4-2.3 746E-02- 1.67 83E-02-2 . 4868F-02 3. 88 76E- 02-2 . 196 5E-02 
5.77 1 3E -02 .9223 

1 .4116E-04-2 .3740E-02-1.6409E-02-2 .4866 E-02 3 . 88 76E-02- 2 . 1 703F-02 
5. 67 00 E-02 .9223 

1.2612E-04-2.3735E— 02-1.6094E-02-2.4865E-02 3 . 06 76 t- 02-2 . 148 2E-02 
5.5849E-02 .9223 



15.00 


6.164 


5.0768E-O2 6.67S5E-02-1 .4362 E-02 1 . 1 340E-04-2 . 373 IE-02- 1 . 5028 E-02-2 . 4Q64 E-02 3 . BB76E-02-2 . 1295E -02 
- « 2 00^ -.8200 -0. 9000 E-02 5.5129E-02 .9223 

16.00 6.115 5 . 8764E-02 6.6172E-02-1 .4342 E-02 1 . 0257E-04-2 .372 8E-02-1 - 5602 E-02-2 .4063 E-02 3 . 8B 76 E-02-2 . 1 136E-02 

-.2009 -.8200 -8.9000E-02 5.4517E-Q2 .9223 

17.00 6.074 5. 8761 E-02 6. 5638E-02-1 .4325 E-02 9 . 3306E-05-2 . 372 5E-02- 1 . 5408E-02- 2. 4862E- 02 3. 83 77E-02-2. 1 OOOE-02 

-.2809 -.8200 -B.9000E-02 5.3992E-0? .9223 

18.00 6.039 5.8758E-02 6. 5 177E-02- 1 .431 0 E-02 0 . 5322E-0W . 3722E-02-1 -52 41E-02-2 .496? E-02 3 .08 77E-02-2 .O303E- Jz 

-.2809 -.8200 -8.9O00E-02 5.3541E-02 .9223 

19.00 6.008 5.8 7 56F-02 6 . 47 7 7E- 02-1 .4297 E-02 7 . 04O4E-O5-2 . 3720 E-02- 1 . 5097E-0 2-2 .4861 E-02 3 . 88 77E-02- 2 .078 IE-02 

-.2309 -.8200 -8.9000E-02 5.3149E-02 .9223 

20.00 5.981 5 • 8754E- 02 6.44 29 E- 02-1 . 42 86 E-02 7 .237 BE -05-2 . 371 9 fc-02-1 .4971 E-02-2 .4 061E-O2 3. 3077E-O2- 2 .0693E-02 

-.2809 -.8200 -8. 9000 E— 02 5.20O0E-O2 .9223 

21 .00 5.958 5.B7 53E-02 6 .4 1 24E-02-1 .42 76 E-02 6 . 7101 E-05-2 . 3 71 7E-02-1 . 48 61E-02-2 .4 86 1 E-02 3 .8877E-02-2 .061 5C-02 

-.2809 -.8200 - 8.9000 E-02 5.2510F-02 .9223 

22.00 5.937 5.8751E-02 6 . 3855 E- 02-1 .42 67 E-02 6 . 2456E-05-2 . 37 1 6E-02- 1 .4763 E-02-2 .4860E-02 3. 8877E-02-2. 054 7F -02 

-.2809 -.8200 -8.9000E-02 5.2247E-02 .9223 

23.00 5.919 5.8750E-02 6. 36 17 E-02-1 .42 60 E-02 5 .8350E- 05-2 . 371 5E-02-1 .4678E-02-2 .406OE-O2 3 .887 7E-02-2 .0486E-Oc 

-.2809 -.8200 -8.9000E-02 5.2015E-02 .9223 

24.00 5.902 5.0749E-O2 6 . 3406E-02-L .42 53 E-02 5 . 4704E-05-2 . 37 1 4E-02-1 . 4601 E-02-2 .4860E-02 3 .88 77E-02- 2 . 043 3E-02 

-.2809 -.8200 -8.9000E-Q2 5.1308E-02 .9223 

25.00 5.888 5.8748E-0Z 6.3217 E- 02-1.4247 E-02 5- 14 53 E-05-2. 3713 E- 02-1*45 33 E- 02-2 .406OE- 02 3.0077F-O2-2*O385F-O<l 

-.2809 -.8200 - 8 . 9000E-0 2 5.1624E-02 .9223 

26.00 5.075 5.0747E-O2 6 . 3049E-02-1 .4241 E-02 4 . 8544E-05-2 . 371 2E-02- 1 . 44 73 E-02-2 .4660E-02 3 . 80 77F-Q2-2 .0 34 2F-02 

-.2809 -.8200 -8.9000E-02 5. 14-6OE-02 .9223 

27.00 5.863 5.8746E-02 6.2897E-02-1 .4236E-0Z 4 .5930E-05-2 . 371 IE-02- 1 .4418E-02-2 .4 960E-02 3. 887 7E- 02-2 . 0304F-02 

-.2809 -.8200 -8 • 9000 E-02 5.1312E-02 .9223 

28.00 5.853 5.6746E-02 6. 27 60E-02- 1 .4232 E-02 4 .3574E -05-2 . 37 1 1 E-02- 1 . 4369 E-02-2 .4 660E-02 3 . 08 77F-02-2 . 0269E-02 

-.2609 -.8200 -8. 9000E-02 5.U70E-O2 .9223 

29.00 5.843 5.B745E-02 6 .2 636E-02- 1 . 422 8 E-02 4 . 1 443 E-05-Z .3 71 0 F-02- 1 . 43 24 E-02-2 . 4 860 E-02 3 . 88 7 7F- 02- 2 . 02 3 8E-02 

-.2809 -.8200 -0.9OOOE-O2 5.1058E-02 .9223 

30.00 5.835 5 • 8745E- 02 6. 2524E-02-1 .4 224 E-02 3.951 OE-05-2 . 3710E-02-1. 4284E-02-2 . 4660E-02 3 . 0877E- 02-2 . Q209F-02 

-.2909 -.0200 -8.9000E-02 5.0949E-02 .9223 

31.00 5.827 5 • 8744E - 02 6 . 2422 E- 02 -1 .42 2 1 E-02 3 . 7752 E-05 -2 .3709E-02-1 .4Z47E-02-2 .4059E-0? 3 .88 7 7F- 02- 2. 01 84E-02 

-.2809 -.8200 —8 .9000 E-02 5.0849E-Q2 .9223 

32.00 5.620 5.87 44E -02 6.2 329E-02-1 .4218E-02 3.6148E-05-2 . 3709E-02-1 .42 13E-02-2 .4859E-02 3 . 88 7TE- 02-2 . 0160E-02 

-.2009 -.9200 -8.9000 E-02 5.0758E-02 .9223 

-q 33.00 5.813 5. 8743 E- 02 6 . 2244E-02-1 .4215 E-02 3 .46 B2E-05-2 . 370 8E-02- 1. 41 03E-O2-2 .4859E- 02 3 . 8877E-02- 2. 01 38E-0^ 

-.2009 -.8200 - 8 .9000 1— 02 5.0675E-02 .9223 



34.00 

5.007 

5.8743F-02 
- .2809 

6.2166E-02-L.4213E-02 
-.0200 -8.9000E-02 

3 • 333 7E-05-2 
5 . 0599E- 02 

.3708E-02-1.41 5 5E-02-2 .4 859 E-02 
.9223 

3.8877E-02-2.0119E-02 

3b. OO 

5.802 

5.8743E-02 

-.2809 

6.2094E-02-1 .42 10 E-02 
-.8200 - 8-9000 C-Q2 

3 • 210 IE -05-2 
5.05 29E-02 

. 3 70 8 E-02- 1 .41 29 E-02- 2 .48 59E- 02 
.9223 

3.8877F-02-2 .0100E-02 

36.00 

5.797 

5.6742E-02 

-.2809 

6. 202 BE- 02-1. 4 20 8 E-02 
-.8200 -8.9000 E-02 

3.0963E-05-2 
5 .0465 E-0 2 

. 3707 fc -02-1. 41 05E-02-2 .48 59 E-02 
.9223 

3 .88 7 7E-02-2.00B4E-02 

37.00 

5.792 

5.8742E-02 

-.2609 

6.1 966E-02-1 .4206 E-02 
-.6200 -0 .9000 E-02 

2.9912E-05-2 

5.0405E-Q2 

. 370 7E-02- 1. 4O03E- 02- 2 .4859 E-02 
.9223 

3.88 77E-02-2. 006 8E-02 

38.00 

5 .788 

5.8742E-02 

-.2809 

6.1910E-02-1 .4205 E-02 
-.0200 -8.900GE-02 

2 .8941 E-05-2 
5. 0350E- 02 

. 37 07E-02-1. 4063 E-02-2. 4859 E-02 
.922 3 

3 .H8 77E-02-2 .00 5 4E-U2 

39.00 

5.764 

5.0742E-O2 

-.2809 

6 . 1 658 E-02- 1 .4203 E-02 
-.8200 -8.9000E-02 

2 .8041 E-05-2 
5.0299E-02 

.3707E-02-1.4044E-02-2.4859E-02 

.9223 

3.8877F-02-2.0041E-02 

40.00 

5.780 

5 .87426-02 
-.2809 

6.1 809 E-02— l .4201 E-02 
-.8200 -8. 9000 E-02 

2 * 7205E- 05-2 
5.0252E-02 

. 3707E— 02— 1-4026 E—QZ-2 .48 59 E-02 
.9223 

3 .8B77E-02-2 .Q0 2 8E-02 

41.00 

5.777 

5.8741E-02 

-.2809 

6.1764E-02— 1*4200 E-02 
-.8200 -8. 9000 E— 02 

2. 6428E-05-2 
5.0208E-02 

•3706F— 02-1 .4010E-02-2.4859E-02 
.9223 

3.8877E-02-2. 0017F-02 

42.00 

5.773 

5.6T41E-02 

-.2609 

6.1722E-02-1.4199E-02 
-.8200 -8.9000 E-02 

2.5704E-05-2 

5.0167E-02 

.3706F-02-1. 3995E-02 -2 .4 859 E-02 
.922 3 

3.88 77 E-02-2* 0006E-02 

43.00 

5.770 

5.8741E-02 

-.2809 

6. 1 682 E-Q2— 1.4 L 97 E-02 
-.8200 -0.9JOOE-O2 

2.5029E-05-2 
5.0 129E-02 

•3706E-02-1. 3981E-02-2.4859E-02 
.9223 

3. 887 7E- 02- 1.9996 E-02 

* 

* 

o 

o 

5 • 7b6 

5.BT41E-02 

-.2809 

6.1646E— 02— 1.4196 E-02 
-.8200 -B.9000E-02 

2.4398E-05-2 
5 • 0093E-02 

.3706E-02-1. 39 68 E-0 2- 2.48 59 E-02 
.9223 

3 .06 77 1- 02-1 .990 7E-0i 

45.00 

5.765 

5.8741E-02 

-.2809 

6.L6UE-02— 1.41S5E— 02 
-.8200 -8.9000 E-02 

2.3808E-05-2 

5.0060E-02 

*37 06 E-02- 1. 3955E-02— 2.4859E-02 
.9223 

3.8877E-02-1.9978E-02 

46.00 

5W62 

5.Q74LE-02 

-.2809 

6.1579E-02-1.4194E-02 
-.8200 - 8. 9000E-02 

2.3255E-05-2 
5 • 0029E-02 

. 3706E— 02- 1. 2944 E-02-2 .4859E-02 
.9223 

3.8877E— 02~ 1-997QE— 02 

47.00 

5.760 

5.87 40E-0 2 
-.2809 

6.13 49 E-02 -1.41 93 E-0 2 
-.8200 -8.9000 E-02 

2.2736E-05-2 
4 . 9999 E— 02 

-37 05 1 -02-1 . 39 33 E-02-2 .4359E-02 
.9223 

3 .8877E-02-la9963E-O2 

4B.Q0 

5.756 

5.074OE-O2 

-.2809 

6. 1521 E- 02-1. 4L92 E-02 
-.8200 -0.9OOOE-O2 

2.2248E-05-2 
4# 9972E-02 

. 3705 E-02- 1. 29 23E-02-2 . 4859E-02 
.922 3 

3.8877E-02-1 .9955E-02 

49.00 

5.756 

5 • 8740E-02 
-.2809 

6.1494E— 02-1 -419 L E-02 
-.6200 -8. 9000 E-02 

2.1790E-05-2 

4.9946E-02 

.3705E -02-1. 29 13 E-02-2. 4859 E-02 
.9223 

3. 89 77 E- 02-1. 9949E-02 

50.00 

5.754 

5 • 8740E-02 
-.2809 

6.14 69 E-02 -1.41 90 E-02 
-.8200 — 8 • 9000 E— 02 

2. 1358E-05-2 
4.9921E-0? 

.3705E-02-1 .3904 E-02-2 .4059E-O2 
.9223 

3.8877E-02-1 .9942F-U2 

51.00 

5.752 

5.8740E-02 

-.2309 

6.1445E— 02-1 .41V0E-02 
-.0200 -8 .9000 E-02 

2.0950E-05-2 
4.98 98 E-02 

♦3705E— 02-1 . 389fcE-02-2 -4859E— 02 
.9223 

3. 8877 E- 02-1. 993 6E -02 



LATERAL STA0ILITY OF TETHEPtD 3ALLCCN - LkC BALLOON - REFERENCE ClINF I GUft AT I C N 


11/17/72 00.33.53 


TETHER SPRINGS 


VELOCITY 

SkYY 

SKY P 

SKYS 

SKPP 

SKPS 

SKSS 

L .000 

1.171 

-3.879 

3.372 

12.64 

-11.16 

9.735 

2.000 

1.193 

-3.962 

3 . 4 L 8 

13.16 

-11.35 

9.795 

3.000 

1.227 

-4.096 

3.496 

13.67 

-11.67 

9.958 

■'4.000 

1.276 

-4.279 

~ 3.610 

14.35 

-12.10 

10.21 

5.000 

1.339 

-4.512 

3. 765 

15.20 

-12.63 

10.53 

5.000 

1 .419 

-4.799 

3.965 

16.23 

-13.41 

11.08 

7.0C0 

1.516 

-5.146 

4.215 

17.47 

-14.31 

11.72 

3.000 

1.632 

-5.556 

4.518 

18.91 

-15.33 

12.51 

9.000 

i.76d 

-6.032 

4.87b 

20.58 

-16.64 

13.45 

10.00 

1 .923 

-e.574 

5,287 

22.47 

-18.08 

14.54 

11.00 

2.097 

-7.182 

5.753 

24.59 

-19.70 

15.73 

12.00 

2.291 

-7.855 

6.271 

26.93 

-21.50 

17.16 

13.00 

2.503 

-8.592 

6.840 

29.49 

-23.48 

10.69 

14.00 

2.734 

-9.393 

7.460 

32.27 

-25.63 

20.35 

15.00 

2.903 

-10.26 

8.129 

35.27 

-27.95 

22.15 

16.00 

3.250 

-11. 18 

8.847 

38.47 

-30.44 

24.08 

17.00 

3.535 

-12.17 

9.613 

41.89 

-33.09 

26.14 

IS. 00 

3,837 

-13,22 

10.43 

45.52 

-35.91 

28.33 

IS. 00 

4.156 

-14. 32 

11.29 

49.35 

-38.89 

30.65 

20.00 

4.493 

-15.49 

12.19 

53.39 

-42.04 

33.10 

21.00 

4.848 

-16.71 

13.15 

57.63 

-45.34 

35.67 

22.00 

5.219 

-18.00 

14.15 

62.09 

-48.30 

38.37 

23.00 

5 .6 Q B 

-19.35 

15.20 

66.74 

-52.43 

4L.19 

24.00 

6.013 

-20.75 

16.29 

71.60 

-56.22 

44.14 

25.00 

6.436 

-22.21 

17.43 

76.67 

-60. 16 

47.21 

26.00 

6.S76 

-23.74 

18 .62 

81.93 

-64.26 

50.41 

27.00 

7.333 

-25.32 

19.85 

67.41 

-68.53 

53.73 

23.00 

7.807 

-26. 96 

21.13 

93.08 

-72.95 

57.17 

20.00 

3. 298 

-26.66 

22.45 

90.97 

-77.54 

60.75 

30.00 

8.806 

-30.42 

23.82 

105 • 1 

-82.28 

64.44 

31.00 

9.331 

-32.23 

25.24 

111.3 

-87.18 

60.26 

32.00 

9.874 

-34.11 

26.70 

117.8 

-92.24 

72.21 

33.00 

10.43 

-36. 05 

23.21 

124.5 

-97.46 

76.27 

34.00 

1 1.01 

-38.04 

29.76 

131.4 

-102.8 

80.47 

. 00 

11.60 

-40.09 

31.37 

138.5 

-108.4 

04.79 

36.00 

12.21 

-42.21 

33.01 

145.9 

-114.1 

89.23 

37.00 

12. S4 

-44. 38 

34.71 

153.4 

-119.9 

93.80 

38.00 

13.49 

-46. 61 

36.45 

161.1 

-126.0 

98.49 

39.00 

14. 15 

-48.90 

38.23 

169.0 

-132.1 

103.3 

40.00 

14.83 

. -51.25 

40.06 

177.2 

-138.5 

108.2 

41.00 

15.52 

-53.66 

4L.94 

185.5 

-145.0 

113. 3 

42.00 

1 6.24 

-56. 13 

43.87 

194.0 

-151.6 

118.5 

43.00 

1 6.97 

-50.66 

45.84 

202.8 

-158.4 

123.8 

44.00 

17.72 

-61.24 

47.65 

211.7 

-165.4 

129.3 

45.00 

18.48 

-63.89 

49.91 

220.9 

-172.6 

134.8 

46.00 

19.26 

-66.60 

52.02 

230.2 

-179.9 

140.5 

47.00 

20.06 

-69.36 

54. 16 

239.8 

-187.3 

146.3 

43,00 

20. 88 

-72. is 

5b • 36 

249.6 

-194.9 

1 52.3 

49.00 

21. 71 

-75.07 

53.63 

259.6 

-202.7 

158.3 

50.00 

22.56 

-78.01 

60.92 

269.7 

-210.7 

164.5 

51.00 

23.43 

-31.01 

63.26 

280 . 1 

-213.7 

170.8 
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LATERAL STABILITY UF TETHERED BALLCCN - L RC BALLOON 


REFERENCE CON FI GUR A T I CN 


11/17/72 00.33.53 


TEThER CC'NOITICNS 


velocity 

X 1 

Z1 

GAMO 

TO 

GA Ml 

T1 

CAB CRAG 

l.COO 

.4953 

61.00 

89 . 19 

61.51 

89.82 

02.43 

1.0104E 

2.000 

1.943 

60. 96 

96.32 

62.77 

89.30 

B3.68 

4.0418E- 

3.000 

4.2 36 

60. 83 

83.08 

64.70 

88.46 

85.65 

9.09 40 E 

4.000 

7.218 

e>0. 5 1 

78.28 

67.49 

87.35 

88.24 

. 1617 

5.000 

10.69 

59.92 

72.78 

70.85 

36.01 

91.40 

. 2526 

6.000 

14.44 

59.02 

66.90 

74.37 

34.48 

95. IL 

.3636 

7.000 

1 3. 26 

57.83 

61.25 

79.55 

32.01 

99.38 

.4951 

8.000 

21.95 

56. 33 

55. 60 

84.91 

91.04 

104. 3 

.6467 

9.QQ0 

25. 39 

54.78 

51.04 

90.96 

79.21 

109.7 

.8185 

10.00 

23. 52 

53. 10 

46. 01 

97.69 

77.36 

115.9 

1.010 

LI. 00 

31.29 

51.41 

43. 19 

105.1 

75.53 

122.8 

1.223 

12.00 

33. 73 

49.77 

40.12 

113.2 

73.73 

130.3 

1.455 

13.00 

35.84 

48.21 

37. 53 

122.1 

72.00 

133. 6 

1.7 08 

14.00 

37.67 

46. 77 

35.36 

131.6 

70.34 

147.7 

1 .980 

15.00 

39.25 

45.44 

33. 54 

141.9 

68.77 

157.5 

2.2 73 

16.00 

40.61 

44.22 

32.00 

152.9 

67.30 

168. 1 

2.587 

17.00 

41.79 

43.12 

30.70 

1 64. 6 

65.91 

179.4 

2.920 

18.00 

42. 61 

42. 13 

29.60 

177.1 

64.62 

191.5 

3.274 

19.00 

43. 70 

41.23 

20.66 

190.3 

63.42 

204.4 

3.648 

20.00 

44.4 8 

40.42 

27.95 

204.2 

62.31 

210. 1 

4.042 

21.00 

45. 16 

39.69 

27. lfc 

218.9 

61.23 

232.5 

4.456 

22.00 

45.75 

39.03 

26.55 

234.4 

60.33 

2 47. 7 

4.891 

2 3.00 

46.28 

39.43 

2 6.03 

250.5 

55. 46 

263.7 

5.345 

24.00 

46.75 

37.69 

25.57 

267.4 

58.65 

200.4 

5.020 

25.00 

47.17 

37.40 

25.16 

285.1 

57.90 

257.9 

6.315 

26.00 

47.54 

36.95 

24.80 

303.5 

57.21 

316.2 

6.831 

27.00 

47. 68 

36.55 

24.49 

322.6 

56.57 

335.2 

7.366 

28.00 

4 8.18 

36. l a 

24.20 

342.5 

55.98 

3 54.9 

7.422 

29.00 

43.45 

35.84 

23.95 

363.1 

55.43 

375.4 

3.498 

30.00 

40.69 

35. 53 

23.72 

384.5 

54.92 

396. 7 

9.094 

31.00 

48.91 

35.24 

23.52 

406.6 

54.45 

410.7 

9.7 10 

32.00 

49.12 

34.90 

23.33 

429. 5 

54.02 

441.5 

10.35 

33.03 

49. 3C 

34. 74 

23.17 

453.0 

53.61 

464.9 

11.00 

34.00 

49.47 

34.52 

23. J1 

477.3 

53.23 

489.2 

11.68 

35.00 

49.63 

34.3 1 

22.87 

502.4 

52.88 

514.2 

12. 38 

36.00 

49.77 

34.12 

22.75 

528.2 

52.55 

539.9 

13.10 

37.00 

49.90 

33.95 

22.63 

554.7 

52.25 

566.4 

13.93 

3 3.00 

50.02 

33.78 

22.52 

582.0 

51.96 

5 93.6 

14.59 

39.00 

50. 13 

33.63 

22.42 

610.0 

51.69 

621.5 

15.37 

40.00 

50.24 

33.49 

22. 33 

633.7 

51.44 

653.2 

16.17 

41.00 

50.33 

33.35 

22.25 

668.2 

51.21 

679.6 

16.99 

42.00 

50.42 

33.23 

22.17 

698.4 

50.99 

709.8 

17.82 

43.00 

50.51 

33.11 

22.10 

729.3 

50.78 

740.7 

18.68 

44 .00 

50.56 

33.01 

22.03 

761.0 

50. 59 

772.3 

19.56 

45.00 

50.66 

32.90 

21.97 

793.4 

50.40 

004.6 

20.46 

46.00 

50.73 

32.61 

21.91 

826.5 

50.23 

037.7 

21.38 

47.00 

50.79 

32.72 

21.85 

860.3 

50.06 

871.6 

22.32 

40.00 

50. 65 

32.63 

21.80 

894.9 

49.91 

906.1 

23.28 

49.30 

50.91 

32.55 

2 1.75 

930.3 

49.76 

941 . 4 

24.26 

50.00 

50.56 

32.48 

21.71 

966.3 

49.62 

977.5 

25.26 

51.00 

51.01 

32.40 

21.67 

L003 

49.49 

1014 

26.28 
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Listing of tape 33 for sample case (uncoupled characteristic roots ) 


■L AT ER AL STABILITY UF TETHERED S4LLCCN - IRC BALLGJN - REFERENCE CQNF I GUR A T I CN 11/17/72 00.33.53. 


UNCOUPLED ROOTS 


VEL 

RLY1 

RL Y2 


RL PI 

RLP2 

RLS1 

RLS2 


IHY1 

MY2 


1MP1 

IHP2 

t M SI 

I HS2 

1 .000 

-4. 4683 E-02 

-4 . 46 83F- 

■02 

-7. 7458E-02 

- 7 . 7458E - 02 

-.1252 

-.1252 


.1662 

-.1662 


4.368 

-4.368 

.2103 

-.2103 

2.000 

-8.9366 E-02 

-8.9366E- 

02 

-.1560 

- .1560 

-.1877 

-.3127 


. 1489 

-.1489 


4.411 

-4.411 

0. 

0. 

3.000 

-. 13*0 

- .1340 


-. 2363 

-.23 63 

-8.51C5E-02 

- .6647 


.1143 

-.1143 


4.474 

- 4.4 74 

0. 

0. 

4.000 

-.1 787 

- .1787 


-. 3183 

-.3183 

-5.6692E-02 

-.9416 


1. 7479E-02 

-l . 74796- 

■02 

4.550 

-4.550 

0. 

0. 

3.CC0 

-9.6676E-02 

-.3502 


-.4018 

- .4018 

-4.0784 E — 02 

-1.206 


0. 

0. 


4.635 

-4.635 

0. 

0. 

6.000 

-7. 6 32 6 E— 02 

-.4579 


-• 4B64 

- .4064 

-3 • 0034 E-02 

-1.464 


0. 

0. 


4.725 

-4.725 

0. 

0. 

7.000 

-6. 8335 E-02 

-.5567 


-.5716 

-.5716 

-2.2012 E-02 

-1.719 


0. 

0. 


4.019 

-4.319 

0. 

0. 

0.000 

-6.3315 E— 02 

- .6516 


-.6572 

- .t 572 

-1.5637E-02 

-1.973 


0. 

0. 


4.918 

-4.910 

0. 

0. 

9.000 

-6.0C35E-02 

-.7443 


-.7430 

- .7430 

- 1 • 0340 E-02 

-2.226 


0. 

0. 


5,021 

-5.021 

0. 

0, 

10.00 

-5m 31 70E-02 

-.8355 


-. 82 88 

-.8288 

-5.7874E-03 

-2.477 


0. 

0. 


5.129 

-5.129 

3 ■ 

0. 

11. CO 

-5.7260E-02 

-.9250 


9148 

-.9148 

-1.7686E-03 

-2.729 


0. 

0. 


5.243 

- 5.243 

0. 

0. 

12.00 

-5.7 026 E— 0 2 

-1.015 


-1.001 

-1.001 

1 • 0 564E-03 

-2.979 


0. 

0. 


5.361 

-5.36L 

0 . 

0. 

13.00 

-5. 72 85 E-02 

-1.104 


-1.086 

-1.086 

5.1833E-03 

-3.230 


0. 

0. 


5.485 

-5.405 

0. 

0. 

14.00 

-5.79 L4E-02 

-1.193 


-1.172 

-1.172 

8.2816E-03 

-3.480 


0. 

0. 


5.613 

-5.613 

0. 

0. 

15.00 

-5. 8BZ7E-02 

-1.282 


-1.258 

-1.258 

1.11 99E-Q2 

-3.731 


0. 

0. 


5.747 

-5.747 

0. 

0. 

16.00 

-5.9963E-02 

-1.370 


-1.344 

-1.344 

1.3972E-02 

-3.981 


0. 

0 ■ 


5.886 

-5. 686 

0. 

0. 

17.00 

-6.1276E-02 

-1.450 


-1.429 

-1.429 

1 . 6629 E— 02 

-4.231 


0. 

0 . 


6.029 

-6.029 

0. 

0. 

10.00 

-6. 2732 E— 02 

- 1 .546 


-1.515 

- 1.515 

1. 91 89E-02 

-4.481 


0. 

0. 


6.176 

-6.176 

0. 

0. 

19.00 

-6. 4305E-02 

-1.634 


-1.600 

-1.600 

2. 1 669 E~02 

-4.731 


0. 

0 . 


6.328 

-6.328 

0. 

0. 

20.00 

-6.5976E-02 

-1.721 


-1 .686 

-1.686 

2 . 4003 E-02 

-4. 980 


0. 

0. 


6.4B3 

-6.483 

0. 

0. 

2 1.00 

— 6.7729E— 02 

-1 . 809 


-1.771 

-1.771 

2. 643BE-02 

-5.230 


C. 

0. 


6.642 

-6.642 

0. 

0. 

22 .00 

-6.9552E-02 

-1.896 


-1.357 

-1.857 

2 ■ 3 745 E-02 

-5.480 


0. 

0, 


6 .805 

-6.805 

0. 

0. 

23.00 

-7.1435E-C2 

-1 .934 


-1.942 

- 1 .942 

3 • 1010E-02 

-5.730 


0. 

0. 


6.971 

-6.971 

0. 

0. 

24.00 

-7.3 3 706—02 

-2.071 


-2.027 

-2.027 

3.3237E— 02 

-5.979 


0. 

0. 


7. 1 40 

- 7 . 1 40 

0. 

0. 
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25*00 

-7.5349 E-02 

-2.159 

-2.113 

-2.113 

3 ■ 5432 E-02 

-6.229 


0. 

0. 

7.312 

-7.312 

0. 

□ . 

26.00 

-7. 7369 E-02 

-2.246 

-2.198 

-2.198 

3 . 7597E-Q2 

-6.479 


0. 

0. 

7.496 

-7.466 

0. 

0. 

27.00 

-7.9423E-02 

-2.333 

-2.263 

-2.283 

3.9738E-02 

-6.728 


0. 

0. 

7.663 

- 7.663 

0. 

0. 

28.00 

-B. l509Er-02 

-2.421 

-2.36B 

-2.360 

4.1855E— 02 

-6.978 


0. 

0. 

7.843 

-7.843 

0. 

0. 

29.00 

-8. 3623E— 02 

-2.508 

-2.4 54 

-2.454 

4 . 3952 E — 02 

-7.227 


0. 

0. 

8.024 

- 8.024 

0. 

0. 

30.00 

-8. 5761E-0 2 

-2.595 

-2.539 

-2.539 

4.6031 E-02 

-7.477 


0. 

0. 

8.208 

-8.208 

0. 

0. 

31.00 

-8. 7922 E-02 

-2.682 

-2.624 

-2.624 

4. 8092 E-02 

-7.727 


0. 

0. 

8.393 

- 8.393 

0. 

0. 

32.00 

— 9. 0104E-02 

-2.770 

-2.709 

-2.709 

5.0139E-02 

-7.976 


0. 

0. 

0.580 

-8.500 

0. 

0. 

33.00 

-9.2304E-0 2 

-2.857 

-2.794 

-2.794 

5.2171 E— 02 

-8.226 


0. 

0. 

8.769 

- 8.769 

0. 

0. 

34.00 

-9.4521E-02 

-2.944 

-2.880 

-2.880 

5.4191E-02 

-8.475 


0. 

0. 

8.960 

- 9.960 

0. 

0. 

35.00 

-9.6754E-02 

-3.031 

-2.965 

-2.965 

5.62 00 E-02 

-6 .725 


0. 

0. 

9.152 

-9.152 

0. 

0. 

36.00 

-9.9QQ1E-Q2 

-3.118 

-3.050 

-3.050 

5. B197E-02 

-8.974 


0. 

0. 

9.346 

-9.346 

0. 

0. 

37.00 

-.1013 

-3.205 

-3.135 

-3.135 

6. 01 65 E-02 

-9.224 


0. 

0. 

9.540 

-9.540 

0. 

0. 

3B.OO 

-.1035 

-3.292 

-3.220 

-3.220 

6.21 64 E-02 

-9.473 


0. 

0. 

9.737 

-9.737 

0. 

0. 

39-00 

-.1058 

-3.379 

-3.305 

-3.305 

6. 41 34 E — 02 

-9.723 


0. 

0. 

9.934 

-9.934 

0. 

0. 

40.0 0 

-.1081 

-3.467 

-3.390 

-3.390 

6.6097E-02 

-9.972 


0. 

0 • 

10. 13 

- 10. 13 

0. 

0. 

41 .00 

-.1104 

-3.554 

-3.475 

-3.475 

6 . 8052 £-02 

-10.22 


0. 

0. 

10.33 

- 10. 33 

0. 

0. 

42.00 

-.1127 

-3.641 

-3 .560 

-3.560 

7. 00 00 E-02 

-10.47 


0. 

0. 

10.53 

- 10. 53 

0. 

0. 

■ 

o 

O 

-.1150 

-3.728 

-3.645 

-3.645 

7.1942 E-02 

-10 .72 


0. 

0. 

10.73 

- 10.73 

0. 

0. 

44.00 

-.1174 

-3.815 

-3.730 

-3.730 

7.3879E-02 

-10.97 


0. 

0. 

10. 94 

- 1 0. 94 

0. 

0. 

45.00 

-.1157 

-3.902 

-3.815 

-3.815 

7 • 5 810 E-02 

-11.22 


0. 

0. 

11.14 

-11.14 

0. 

0. 

46.00 

-.1221 

-3.989 

-3 .901 

-3.901 

7 • 7 7 35 E-02 

-11 .47 


0. 

0. 

11.34 

-11.34 

0. 

0. 

47.00 

-.1244 

-4.076 

-3.986 

-3.986 

7.9656E-02 

-11.72 


0. 

0. 

11.55 

-11.55 

0. 

0. 

48.00 

-. 1266 

-4.163 

-4.071 

-4.071 

3.1 5 72 E-02 

-11 .97 


0. 

0. 

11. 75 

-11.75 

0. 

0. 

49.00 

-.1291 

-4.250 

-4. 156 

-4.156 

8.3464E-02 

-12.22 


0. 

0. 

11-96 

-11.96 

0. 

0. 

50.00 

-.1315 

-4.337 

-4.241 

-4.241 

8 • 5 3 92 E -0 2 

-12 .47 


0. 

0. 

12.17 

-12.17 

0. 

G. 

51.00 

-.1339 

-4.424 

-4.326 

-4.326 

3. 7296E-02 

-12.72 


0. 

0. 

12.37 

-12.37 

0. 

0. 
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PROGRAM FOR PLOTTING FREQUENCIES AND DECAY RATES 
VERSUS WIND VELOCITY 


General Description 

The dynamic characteristics of a tethered balloon may vary considerably with wind 
velocity. Plots of the frequencies Im(A) and of the decay rates Re(A) versus wind 
velocity are helpful in assessing trends. Program VPLOT is used to plot both the fre- 
quencies and the decay rates versus wind velocity for the longitudinal and lateral cases. 

A sample plot is given in figure 3. 

The parameters for the scales of the plot are set with data statements within the 
program and must be changed internally if desired. The number of frequencies and num- 
ber of decay rates off scale are counted and written on the plot (fig. 3). All of the data 
for the program are read from binary tape 7 written by program STABLTY. The file 
INPUT is thus deleted from the file assignments for the program because no data are read 
from it. The only printing from the program is the identification array and the number of 
velocity increments to be processed, both of which are read from tape 7. The principal 
plotting routines are described in the appendix. The version of the program given here 
requires 30-inch-wide paper for the plotter. 

Definitions of Program Variables 

Some of the principal FORTRAN variable names are given and defined in the fol- 
lowing sections. The variables associated with scaling and axes are: 

FORTRAN 

variable name Definition 

DAXL, FAXL, VAXL length of plot axes for decay rate, frequency, and velocity, 

respectively, in. 

DLAB, FLAB, VLAB arrays of labeling information for decay rate, frequency, and 

velocity axes, respectively 

DDEL, FDEL, VDEL scale factors for decay rate, frequency, and velocity (change in 

units per in. of plot) 

DMIN, FMIN, VMIN , minimum values of decay rate, frequency, and velocity to be 

plotted 

DMAX, FMAX maximum values of decay rate and frequency to be plotted 
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DECRY RATE, 1/SEC FREQUENCY. RRD/SEC 


2PT OFF 



0 4 8 12 16 20 24 28 32 36 40 44 48 52 

VELOCITY, N/SEC 

Figure 3-- Example of plot from program VPLCT. 
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FORTRAN 
variable name 


Definition 


DTICL, FTICL, VTICL distance between large tick marks in inches on plot for the 

damping, frequency, and velocity axes, respectively 


DZERO 


distance in inches from zero decay rate level to plot origin 
as set by CALPLT 


FFHH 


vertical distance in inches from plot origin to end of fre- 
quency axis 


FH 


vertical distance in inches from plot origin to zero fre- 
quency level 


HGT height of lettering for labeling, in. 

TICSND, TICSNF, TICSNV number of small tick marks per inch on plot for the damping, 

frequency, and velocity axes, respectively 


The variables read from tape 7 are: 


FORTRAN 
variable name 

ID 

IK2 

NEGR 

NROOT 

NT WO 

NVEL 

ROOTI 


Definition 

ten-word array containing case identification and date and time of 
processing of case by STABLTY 

index for cycling symbols 

one plus the number of complex roots with negative frequencies 
number of roots for plotting for a given velocity 
order of linear eigenvalue problem 
number of velocity increments 

array containing imaginary portion of eigenvalues (modal frequencies 
for a given velocity) 
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FORTRAN 

variable name Definition 

ROOTR array containing real portion of eigenvalues (decay rates) for a given 

velocity, in same sequence as ROOTI 

VEL velocity (first in velocity units, then scaled to in. on plot) 

Other variables are: 

FORTRAN 

variable name Definition 

ISYM index for plotting symbols 

QLSYM symbol quality parameter (+1. for high quality, -1. for low quality) 

NDOFF, NFOFF number of decay rates or frequencies off scale (encoded to Hollerith as 
DOFF and FOFF, respectively, for labeling plot) 

RIN, RRN real and imaginary parts of an eigenvalue (scaled to in. from plot 

origin as FREQ and DECAY, respectively) 
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Listing of Program 


OVERLAY(VPLOT,0,0» 

PROGRAM VPLOT IQUTP UT-1 t T A P E7 ) 

♦ *** * * ** * * * ^ ♦ ***************:fc****4*fc**************** 


c* * 

C* PROGRAM A286A.3 - RUOTS VS VELOCITY PLOTTING PROGRAM * 
C* PLOTS REAUROOT) VS VELOCITY AND I MAGI ROOT ) VS VELOCITY * 
C* SEE SUBROUTINE WRITEUPS FOR DESCRIPTION OF C ALPLT , NUTAT E , AXES , * 
C* PNTPLT t OR DASHLN * 
C* * 


C ** ************************ ******* ******* ** ******** ***** ******** ******* 

DIMENS ION ID( 10 » ,ROOTR < 50 I, ROOT 1 1 50 I , VLAB( 5 I ,DLA&(5) , FLABI 5 ) 

SCALING PARAMETERS AND LABELS FOR AXES 

CATA 0LAB/50H DECAY RATE, 1/SEC / 

CATA F LA3/50H FREQUENCY, P.AD/SEC / 

DATA VLAB/50H VELOCITY, M/SEC / SI UNITS 

DATA VAXL»VM!N,VDEL»VTICL»TI CSNV/ 10.A,0.»5., .9,5./ 

DATA CAXL ,DMIN,DDEL.OTICL ,TICSND/7. ,-5.,L.,l.,10./ 

DATA FAXL ,FMIN, FDEL , FT I CL .TICSNF/7. ,0 . , 2., 1 . ,2 ./, HGT/ .250/ 

INITITALIZE PLUTTING ROUTINES, SET PLOT ORGIN, AND CALCULATE SCALING 
PARAMETERS - CALL TO LEROY SLCWS PLOTTER FOR USING INK 

CALL CALCOMP i CALL C AL PL T ( 3 . » 3 . , -3 I 
QLSYM=1 • i IFICLSYM.GT.O.) CALL LEROY 
RVDEL=L./ VOEL 1 RDDEL= l./DDEL 4 RFU EL = 1 . / FDEL 

FMAX=FMIN«-FAXL*FDEL $ DMAX= DM IN+OAXL*DDEL $ 0 Z ERO = - DM I N*RDDEL 
FH=(CMAX— DMIN)*R0DEL+1 . 

READ IC ARRAY AND NUMBER OF VELOCITY POINTS FROM BINARY TAPE? 

SEE SUBROUTINE WRITEUP FOR DESCRIPTION OF RECIN 

1 CALL R EC IN(7, 2,1 EOF, ID, 1,10,11 i IF < E UF , 7 ) 999, 2 

2 CALL RECINI 7, 1, IEOF ,NVEL I 
PRINT 100 , 1 0, NV EL $ NDOF F =0 $ NFOFF =0 

WRITE ID ARRAY BELCW HORIZONTAL AXIS UF PLOT AND DRAW X-Y AXES WITH 
WITH TIC-MARK GRIDS, NUMBERS AND LABELS 

CALL NOT ATE I 0 . A. *HGT , .5*PGT,ID,0. ,1001 

CALL AXES 10. ,0. , 0. , VAXL , VM I N , VOEL , VT I C L , TI C S NV , VLAb , HGT, -50 I 
CALL AXEStO . , FH , 0 . , VAXL , VM I N . VOEL , VTI CL ,T I CSNV , VLAB , HGT, -50 I 
CALL AXES!-, 5,0., 90. ,DAXL,DMIN, DUEL, OT I CL ,T I CS NO, DL A 3 , HGT, 50) 

CALL AXES!-. 5,FH, 90., FAXL, FMIN, FDEL, FT I CL , T I CS NF, FL A3 , HGT, 50) 

CRAW LINE FCR ZERO CECAy RATE 

IFIDZERO.GT .0. ) CALL DASHLN ( 0 ., DZ ERO , VAXL , DZE RO , VAXL ) 

90- LOOP IS VELOCITY LOOP 

DO 90 IV* 1 , \ V EL $ CALL RECIN(7,1,A,VEL, I K2 , NEG R . NTwO > 

NRCCTsNTWO-NEGR+1 

CALL RECINI 7,2, NROOT,ROOTR, l.NROGT.U 
CALL RECINI 7,2, NROGT , F OCT I , 1 ,NRUUT , L ) 

VEL-= ( VEL~VMIN)*RVOEL 
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20-LCGF IS R GO T PLOTTING LOOP FCR VELOCITY VEL 
00 20 N= 1 »NR0UT S PPN=RO0TRIM $ R I N=R00T I ( N ) 


SCALE FOR PLOTTING AND SET UP SYMBOL CYCLING 

DECAY=(RRN-OMIN)*RDD£L $ FREQ=(RIN-FMIN)*RFDEL+FH 
IF{ IK2.E0.il IGO TO 10 $ I SYM=QLSYM*( IK2»10) 

PLOT SYMBOL IF DECAY RATE IS ON PLOT - IF OFF-SCALE, INCREMENT NDOFF 
- REPEAT FOR FRECUENCY, NFOFF 

I FI RRN.GE .DM IN. AND.RRN.LE .DMAX )4, 5 
A CALL FNTPLTIVEL, DECAY, ISYM, II $ GO TO 6 

5 NDOFF =NDOFF+l 

6 IFIKIN.GE .FMIN .AND.PIN.LF .FMAXJ7, B 

7 CALL PNTPLT ( V EL , FR EQ , I SYM , l ) f GO TO 20 
fi NFOFF = NFOFF +1 t GO TO 20 

PLUT PLUS SIGN IF DECAY PATE IS GN PLOT - IF OFF-SCALE, INCREMENT 
NDOFF - REPEAT FCR FREQUENCY, NFOFF 

10 IF I RRN.GE .DMIN.AND.RPN.LE.OMAX) 12, 13 

12 CALL NCTATEIVEL , DECAY, .07, 3,0., -1 » $ GO TO 14 

13 NDOFF=NOOFF+1 

14 IF (RIN.GE.FMlN.AND.RIN.LE.FMAX)15,16 

15 CALL NOTATE! V EL , FREQ , .07, 3 , C . 1 1 $ GO TO 20 

16 NF0FF = NF0FF4-1 
20 CONTINUE 

90 CONTINUE 

ENCUUE NUMBER OF POINTS OFF PLOT AND WRITE ON PLOT 

ENCCCE(10,101,DOFF|NDOFF t ENCUOEU.0, 101, FOfFI NFOFF 
CALL NOTATE(VAXL,OAXL,HGT,DCFF,0.,10> s f fhh=f h+f AX L 
CALL NUTATE ( V AXL , FFHH , PGT , FOFF , 0 . , 1 0 > 

SHIFT ORIGIN AND CHECK FOR NEXT CASE 

CALL CALPLT I I VAXL+6. 1 , 0. .-3) $ GO TO 1 
999 CALL CALPLT 10., 0., 999) $ REWIND 7 
101 FORMAT! 14, 6HPT OFF » 

100 FORMAT 1/2X1 0A10/* NVEL=*I4) 

END PROGRAM VPLOT 
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PROGRAM FOR PLOTTING ROOTS IN ROOT-LOCUS FORM 
WITH WIND VELOCITY AS A PARAMETER 

General Description 

One form of plotting characteristic roots often used in parametric stability investi- 
ga'.ions is the plotting of Im(\) versus Re(A); that is, frequency versus decay rate. 
Curves are formed by the roots as a parameter is varied. Root-locus diagrams are 
often used because the qualitative variation of the roots with the parameter can be 
sketched with no computation, providing the parameter enters the stability determinant 
in a simple manner. Wind velocity is used as the parameter and enters the stability 
determinant in a complicated fashion. Thus, the root-locus plots generated by program 
RTLOCUS is used only as a form of plotting the calculated results in order to assist in 
interpreting such trends as the splitting of a complex pair into real roots. One feature 
of this type of plot is that radial lines from the origin form lines of constant damping 
ratio. A sample plot is given in figure 4. 

The organization and operation of program RTLOCUS is quite similar to that of 
program VPLOT. The definitions of the FORTRAN variables are also essentially the 
same. The program uses the same tape 7 as VPLOT and is normally executed in series 
with VPLOT. The version of RTLOCUS given here requires 30-inch-wide paper. 
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Listing of Program 


GVEPLAY(RTLOCUS,0,0) 

PROGRAM RTLQCLS (OUTPUT = 1 , TAPE7) 

C ** ***** * * * *** *** ******************************************************** 


c* * 

C+ PROGRAM A2864.4 - ROUT LOCUS PLOTTING PROGRAM * 
C* PLOTS I M AG ( ROOT ) VS P E AL ( ROOT ) WITH VELOCITY AS A PARAMETER * 
C* SEE SUBROUTINE WRITEUPS FOR DESCRIPTION OF C ALPLT , NOTA T E , AXES , OP * 
C* PNTPLT * 
C* * 


£*»***«#**** 4# 4********#*******4****4<.* ********************** ************ 

01 MENS ION ID ( 10) , P 00T« t 50 > , ROOT I ( 50 ) » DLAB < 5 ) , F LAB ( 5 I 

SCALING PARAMETERS AND LABELS FOR AXES 

DATA DL AB/50H DECAY RATE, 1/SEC / 

DATA DAXL,DMIN,CDEL,DTICL,TICSND/10.,-6.,1.,1. ,10./ 

DATA FAXL , FM IN , FDE L ,F T I CL , T I C SNF / 10 . , 0 . , 1 . , 1 . , 10. / 

DATA FLAB/50H FREQUENCY, RAD/SEC / 

DATA HGT ,FH/ .250,0. / 

INITIALIZE PLOTTING ROUTINES, SET PLOT ORGIN, ANO CALCULATE SCALING 
PARAMETERS - CALL TO LFPOY SLOWS PLOTTER FOR USING INK 

CALL CALCUMP $ CALL CAL PLT ( 1 . , 5.*HGT ,-3 ) 

QLSYM=1. t IF ( QL S YM.GT . 0 . I CALL LEROY 
ROD EL = 1 • /DOE L $ RFDEL = 1./FDEL 

FMAX=FMIN+FAXL*FDEL * DMAX=DMIN*DAXL*ODEL $ DZ ER0=-DMIN*RDDEL 

RE AO 1C ARRAY ANC NUMBER OF VELOCITY POINTS FROM BINARY TAPE7 
SEE SUBROUTINE WRITEUP FOR DESCRIPTION OF R EC IN 

1 CALL REC1N(7,2,IEOF,ID,1,10,1) $ IF I E OF , 7 1 999, 2 

2 CALL RECINl 7,1, IEOF.NVEL I 
PRINT 100, ID, NV EL $ NOFF=0 

WRITE ID ARRAY BELCW HORIZONTAL AXIS OF PLOT AND DRAW X-Y AXES WITH 
WITH TIC-MARK GRIDS, NUMBERS AND LABELS 

CALL NOTATE I0.,-4.*HGT, . 5 *FGT , 10 , 3. , 1 00 I 

CALL AXESIO • ,0. , 0. , DAXL , DMI N , DCEL ,DTI CL , T I CSNO , DL A3 , HGT ,-50 ) 

CALL AXES(DZERO,0. ,90. , FAXL, FM IN, FD EL, FT I CL, T I CSNF, FLAB, HGT, 501 

90-LOOP IS VELOCITY LOOP 

00 90 IV = 1,NVEL * CALL REC I M 7 , 1 , 4, VE L , I K2 , NEGR,NTwO ) 

NROOT = NTW0-NEGR*1 

CALL RECINl 7, 2 , NROOT , ROOT R , 1 , NROOT , 1 I 
CALL REC I N( 7 , 2, NROGT ,ROOT I , 1 , NROOT , 1 ) 

20-L00P IS ROOT PLOTTING LOOP FOR VELOCITY VEL 

DO 20 N=l, NROOT t RPN=R00TR1NI S RIN=ROOTI(N) 

SCALE FOR PLOTTING AND SET UP SYMBOL CYCLING 

DECAY*(FRN-OMIN)*RDDEL t FRE 0= ( R IN- FM I N ) *RFO EL +FH 
IFl IK2.EC.1DG0 TO 10 t ISYM=QLSYM*( IK2+10) 
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IF ON PLOT, PLOT SYMBOL - COUNT OFF SCALE POINTS 

IF ( IRRN.GE.DMIN.ANO.RRN*LE.DMAX) .AND. 

1 IR IN.GE.FMIN.AND.RIN.LE.FMAX) >8, 9 

8 CALL FNTPLT {DECAY, FREQ, ISYM,1) $ GO TO 20 

9 NQF F*NQFF+1 $ GO TO 20 

IF ON PLOT, PLUT PLUS SIGN - COUNT OFF SCALE POINTS 

10 IF < <RRN.GE.DMIN.AND.RRN.LE.DMAX) .AND * 

1 (RIN.GE.FM IN . AND .R I N . I E . F MAX ) ) 14 , 15 

14 CALL NOTATE (DECAY#FREQ , .07,3,0.,— 1) * GO TO 20 

15 NOFF*NOFF+1 
20 CONTINUE 

90 CONTINUE 

ENCODE NUMBER OF POINTS OFF PLCT AND WRITE UN PLOT 

ENCODE 110, 101, PCFF )NOFF 

CAL L NOT ATE I C AXL, FA XL , HGT , POFF , 0 . , 1 0) 

SHIFT ORIGIN AND CHECK FOR NEXT CASE 

CALL CALPLTl 15. ,0. ,-3> % GO TO 1 

999 CALL CALPLT (G.,0. ,999) $ REWIND 7 

101 FORMAT ( I 4 , 6HPT OFF) 

100 FORM AT (/2X10A1Q/* NVEl=*I4) 

END PROGRAM RTLOCLS 

SUBROUTINE NOTATE I X , Y, HT , BC D , THETA , N ) 

CALL CFTRANIX, Y,HT, BCD, THETA, N) $ RETURN 
END SUBROUTINE NOTATE 



PROGRAM FOR PLOTTING LONGITUDINAL MODES OF MOTION 

As a means of illustrating the longitudinal modes of motion, the outline of the 
tethered balloon and the center of mass are displaced in proportion to the eigenvector 
and are drawn for a sequence of time intervals by program CALBALM. The balloon is 
viewed from the side. It is displaced proportional to the pitch-angle amplitude, which is 
an input to the program, and is selected initially such that the balloon remains on the plot. 
The center-of-mass position is shown as a plotted point for each time sample, and the 
balloon outline can be deleted for some time samples. Shifting of the plotting frame 
between time intervals is also optional. A sample plot is given in figure 5. It might be 
noted that this is not a transient response problem in the usual sense. In general, all 
modes of a dynamic system participate in transient motions to a degree depending upon 

the initial conditions or excitation. The purpose of program CALBALM is to illustrate 

/ 

the character of a single mode. 

Program CALBALM is highly specialized as it is based on the shape of a particular 
balloon given in feet by DATA statements within the program (and the same is true for 
program CALBLM2 subsequently described). However, it can be modified for other pur- 
poses with minor reprograming efforts. For example, a slightly modified version has 
been used for making computer-generated movies of the modes of motion. 
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Definition of Program Variables 

The principal FORTRAN variables for the program are given and defined except 
for the variables required for input data which are described subsequently. Note that the 
coordinate y refers to the plotting coordinate direction which is actually -z for the 
stability -axis system. 

FORTRAN 

variable name Definition 


AXESL 


length of X- and Y-axes of plotting frame for a given time or 
times, in. 


DAY two-word array containing date and time of processing of case 

DT time increment between frames, 0.0625* TIME (where TIME is 

time scale factor) 


HGT 


height of title (identification and date and time) written underneath 
initial frame 


NB 

NF 

NLB 

NT 

XAXE, YAXE 


number of points used to describe balloon half profile 

number of points in array used to describe fins 

number of points in array used to describe load band 

number of points in array used to describe tether bridle 

arrays containing coordinates for drawing axes for equilibrium 
position of balloon 


XBAL, YBAL, 
XBTM, YBTM 


XCG, YCG 


x- and y-coordinates of balloon profile, given as station coordinates 
in feet from nose with balloon facing to the left (rotated and trans- 
lated coordinates including motion are stored in XBTM and YBTM 
for plotting) 

x- and y-coordinates of balloon center of mass in coordinate system 
consistent with XBAL and YBAL 
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FORTRAN 
variable name 


Definition 


XFEN, YFIN, fin coordinate array in coordinate system consistent with XBAL 

XFTM, YFTM and YBAL (rotated and translated coordinates are stored in 

XFTM and YFTM) 

XLBAND, YLBAND, load band coordinate array in coordinate system consistent with 

XLBDTM, YLBDTM XBAL and YBAL, including motion stored in XLBDTM and 

YLBDTM 

minimum and maximum values of x and y for limits of 
plotting frame, in units relating to full-scale balloon (here 
ft) 

XMG, YMG x- and y-coordinates of center of mass, including motion scaled 

to inches on plot 

XTET, YTET, tether bridle x- and y-arrays in coordinate system consistent 

XTTM, YTTM with XBAL and YBAL, including motion stored in XTTM and 

YTTM 

Description of Input Data 

The input data consist of four cards per case. The program can process multiple 
cases. 

Card 1 (8A1Q format) .- Eighty columns of identification information read into 
ID array. 

Card 2 (8F10.0 format) .- The eight 10-column fields contain the following variables 
in sequence: 

ROOTR real part of eigenvalue for mode (decay rate), 1/ sec 

ROOTI imaginary part of eigenvalue for mode (frequency), 1/sec 

XREAL real part of x-component of eigenvector normalized by B, m/deg 

XIMAG imaginary part of x-component of eigenvector normalized by 0, m/deg 

ZREAL real part of z-component of eigenvector normalized by 9, m/deg 


XMIN, YMIN, 
XMAX, YMAX 
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ZIMAG 


imaginary part of z -component of eigenvector normalized by 6, m/deg 


TREAL real part of 6-component of eigenvector, normally 1.0 

TIMAG imaginary part of 6-component of eigenvector, normally 0.0 

Card 3 (8F10.0 format) .- The first four 10 -column fields contain the following 
variables in sequence: 

AMPL initial amplitude of pitching motion for mode, deg 

TRIMA trim angle of attack, deg 

TIME time scale factor, DT = At = 0.0625 *TIME, seconds between frames 

XSHIFT distance between origins of frames in inches on plot if frames are 

shifted between plot time intervals 

Card 4 (2014 format) .- The first four 4-column fields contain the following integer 
variables in sequence: 

NFRM number of time increments 

ISHIFT frame origin is shifted between plot time intervals only if = 0 

MODBAL parameter determining interval for drawing full balloon outline {center - 

of-mass point is plotted MODBAL times as often as balloon outline) 

INIMOD initial time frame for plotting ballon outline (= 0, outline plotted first 

frame; = 1, second frame, etc.) 

Listing of Input Data Cards for Sample Case 

******************************* COLUMN NUMBER ********************************** 
0000 00 0001111 1111112 222222 22233 3333 33 334444444444 55 55 5555 55666666666677 77 777 7778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 

LRC BALLOON - REFERENCE CONFIGURATION - MODE 1A AT V = 20 M/S, ROOT— . 76 3+0. * I 

-.76353 0. -1.3920 0. 1.2549 0. 1. 0. 

7. 5.980 15. 10. 

10 1 9 0 
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Listing of Program 


OVEPL AY(CAl6ALM t 0, 0) 

PROGRAM C Al BALM (OUTPUT = 1 , I NPU T = i , TA PE 5 = I NPUT ) 
£************************************************#*********************** 


c* * 

C* PROGRAM A2864.5 - LONGITUDINAL EIGENVECTOR PLOTTING PROGRAM * 
C* PLOTS C G POSIT ICN AND/OR BALLOCN OUTLINE FOR A SINGLE MODE OF * 
C* MOT ICN FOR SELECTED INCREMENTS OF TIME * 
C* SEE SUBROUTINE WRITEUPS FOR DESCRIPTION OF CALPLT, NOTATE ,L I NE * OR * 
C* PNTPLT - LEROY SLOWS PLOTTER FOR DRAWING WITH INK * 
C* * 


C****4************************************* ************************ ****** 

DIMENSION XB AL (46 1 tXFINI 12)tXLBANO(2) ? XTET ( 3 ) t XAXE(8J 

♦ , CAY (2 ) ,YBAl(46) , YFIN(12 ) ,YLBAN0( 2 ) ♦ YTET l 3 ) , YAXEI 81 

> , I C ( 8 ) t X B T M ( 48) * XFTM l I 4), XL BUT MI 4 ) , XTTM ( 5 I 

♦ i Y BTM ( 48 ) ,YFTM( 141 ,YLBDTM( 4) ,YTTM(5) 

DATA A I / 6 H( 8A 1 0 > / , F 1 0/ 8H I 8 F 10 . Q I / , AO/ 1QH l / X 1 OA 1 0/ ) / 

CATA I4,AOV»/6H(20I4),7H( 1 3 A L 0 ) / 

DATA HGT/.125/,AXESL/10./ , I SHIFT/0/ 

DATA DEGRAD/ •.01745329251 < » 94 33/ 

CATA FTPERM/3. 280839895/ SI UNITS 

DATA FCR LRC bALLCCN IN FEET 

tALLCON CATA IS FOR NOSE FACING LEFT - TURNED AROUND IN CALCULATIONS 
OATA NB,NF,NL8,NT/23,12,2,3/ 

OAT A I XBAL < I ) , I -l , 23 > /O . , . 01 , .07 , . 2 , . 33 » . 5, . 67 , 1. , 1 . 3 3, 1 . 67 , 2 . , 

+ 2.33,2.6 7, 3. ,3. 33, 4., 4. 67, 5. 33, 6. 6 7, 8. ,9.33, 10.51,25./ 

CATA ( YBAL I I ) , I =1 , 23 ) /0 . , . 1 2 , . 45 , . 9 5, 1 . 33 , 1 . 72 , 2. 03 , 2 . 52 , 2 . 88 , 

+ 3. 18, 3. 42 ,3. 63, 3. 77, 3. 87, 3. 55,4. 06, 4. 14, 4. 18, 4. 13, 3. 99, 3. 78, 

♦ 3.57, .33/ 

OATA XFIN/17.22, 25.93,2*25., 2*17 .22,2*25. 93, 2*25. ,25. 93, 17.22/ 

CATA YFlN/2.07,4.25,.3, 2* .03 , 2*-. 03 , 2* . 03 . 33 ,-4.25,-2.07/ 

DATA XLBAND/ .88,15 .97/ , YLBAND/2*-2.33/ 

DATA XTET/ 2. 6, 4. 13, 13.9 4/, YTET/-2.33,-12. 51 ,-2 .33/ 

DATA XMC/15.42/,YMC/0. /,XCG/ 14.32 /, YCG/-. 29/ 

DATA XM1N,XMAX,YMIN,YMAX/-6C. ,50. ,-60. , 50./ 

REFLECT eALLOON HALF- PROF I L 6 , INITIALIZE PLOTTING ROUTINES, COMPUTE 
SCALING PARAMETERS, AND SET ORIGIN FOR INITIAL FRAME 

NBl =N B +1 $ NB2 = N8*NB I DO 1 I = NBl,NB2t IB = NB2 + 1-I* XB AL < I I = XB AL I I B ) 

1 Y6AL(I»=-YBALU B) 

SCA L E= l XMAX-XMI N ) / AXESL $ R SCL= 1 ./ S CA LE $ ZER=.75 
XAXE ( 1 ) =-10 . $ XAXE (21=10. $ XAXE <31 = XAXE (7) =XMIN 
XAXE(5» = XAXE(6) = 0. i X AXE l 4 ) = XAXE < 8 1= SCALE 
YAXEI 1 l=YAXE( 2 1=0. $ Y AXE ( 3 ) = Y AX E ( 7 » = YM IN 
YAXE(4)=YAXE( 8)=SCALE $ YAXE<5)=-10. S YAXE(6)=10. 

CALL CALC CMP S CALL C AL PLT ( ZER, ZER, -3 ) $ CALL LEROY 

READ INDENTIFICATICN ARRAY, CALL FOP OATE ANO TIME, AND PRINT AND 
WRITE AT THE BOTTOM OF THE FIRST FRAME 

10 REAC A I , I D $ IF (EOF, 51999, 11 

11 CALL CAYTIM(DAY) $ PRINT AO, 10, DAY 
CALL NOT ATE ( 0 • , — .5 , HGT , ID, 0., 801 

REAO EIGENVECTOR-MOTION DATA, TRIM PARAMETERS, AND FRAME DATA 

READ F10, ROOTR, ROOT I ,XREAL,XIMAG,ZREAL,ZI MAG ,TREAL»TIMAG 
READ F10,AMPL,TRIMA,TIME,XSHIFTS READ I 4, NFP M, I SH IF T , MODB AL , 1 NI MUD 
INI MCD=I MMCD+MCOBAL 
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CONVERT DISPLACEMENT TO FEET, SCALE TIME, AND COMPUTE MAGNITUDES AND 
PHASES OF MODAL COMPONENTS 

XREAL=FT PERM*XREAL t X I MA G=FTP EP M*X I M AG 
ZREAL =FTPERM*ZR EAL $ Z I MA G=FTP ERM *1 1 MAG 
OT= .Q£ 25*T I ME 

DTW = CT*ROOTI t CTP=DT*ROCTR 

XABS=SQRT IXRE AL**2+XIMAG**2 ) $ PHIX=ATAN2 I XlMAG,XREAL ) 
ZABS=SQRTIZREAL**2+ZIMAG**2 ) I PH I Z=AT AN2 I Z IMA G, ZRE AL ) 

CPX=COS< PHIX) $ SPX=SIN( PHIX) $ CPZ = COS ( PHI Z ) $ SPZ=SIN(PHlZ) 

50-LCDP IS TIME-FRAME LOOP 

DO 5C NTS=1,NFRM t N=NTS-1 

CALCULATE MOTION FOR TIME FRAME 

ST=S I N ( N*DTW ) $ CT = COS IN+DTW ) $ AET = AMPL*£XP(N*DTR! % THEM=AET*CT 
XM=AET*XABS*(CT*CPX-ST*SPXI $ ZM=AET*ZABS*ICT*CPZ-ST*SPZI 
TH=CEGRAD*I TFEM+TRIMA) t CTH=COSITH) i STH=SIN(THI 
IF! ISHIFT . E Q . 0 ) GO TO 18 

IF C G POINT ONLY IS DRAWN FOR THIS TIME FRAME GO TO 43 

IFIMCCIN+INIMOD.MOCBAL) .NE.OIGU TO 40 

20-LU0P PREPARES ARRAYS FOR BALLOON OUTLINE FOR PLOTTING 

25-LCOP - FINS, 30-LOOP - LOAD BANO, AND 35-LOOP - TETHER BRIDLE 
POINTS OFF-SCALE ARE SET TO OUTER LIMITS OF FRAME 

18 DO 20 1=1, NB2 $ XTEM=XRALI II-XCG * YTEM= VBAL I I )-YCG 

YBTMI I )=YT£M*CTH— XTEM*STH-ZM $ XBTM 1 1 )=— ( XT EM*CTH*YTEM*STH-XM ) 

1 F ( X8TMI 1 1 .LT.XMINIXBTMI I ) = XM IN $ I F( XBTM 1 1 ) . G T .XMAX ) XB TM I I )=XMAX 
IF (YBTMI 1 » .LT.YMIN) YBTMI I >=YMJN t I FI YBTMI I J .G T . YMAX I YBTM I I)=YMAX 
20 CONTINUE $ DO 25 1 = 1, NF $ XTEM=XF I N I II -XCG t YTEM=YFI NI I ) - YCG 
YFTM(I)=YTEM*CTH-XTEM*STH-ZM $ XFTM ( I ).=— I XTEM* CTH+Y TEM*STH-XM) 
IFIXFTMI 1 ) .LT.XMIN I XFTM I I ) = XMIN $ IFIXFTMII I . G T .XMA X ) XF TM I I )=XMAX 
IF I YFTMI I ) .LT.YMIN JYFTMI I l=YMIN $ I F I YFTMl I > .G T .YMAX ) YFTM I I ) = YM A X 
25 CONTINUE $ DO 30 1 = 1, NLB % X TE M= XLB AND I I I -XCG t YTE M=YL B AND ( I »- YCG 
YLBDTMI I )=YTEM*CTh-XTEM*STH-ZM $ XLBDTMI I )=-(XTEM*CTH+YTEM*STH-XM) 
IF I XLBDTMI II. LT.XMIN) XLBDTMI I)=XMIN 
IFIXLBOTMCIJ.GT .XMAX) XLBDTMI II=XMAX 
IF ( YLBDTMI I) . LT . YM IN) YLBOTM l I l=YMIN 
IF | YL BOTH (I ).GT .YMAX ) YL BDTM I I l=YMAX 
30 CONTINUE * DO 35 1 = 1, NT t XTEM=XTETII ) — XCG $ YTEM=YTETI I)— YCG 
YTTMl I )=YTEM*CTh-XTEM*STH-ZM t XTTMII ) = -( XTEM#CTH«-YTEM*STH— XM) 
IFIXTTMl I ).LT.XMIN)XTTM( I) = XMIN $ IFIXTTMI I ) .GT .XMAX ) XTTMII )=XMAX 
IF I YTTMl I ). LT.YMIN) YTTMl I ) = YMIN $ I FI YTTMl I ) . G T .YMAX ) YTTMl I ) = YMAX 
35 CONTINUE 

SET ADJUSTED MINIMUM AND SCALE FACTOR, AND PLOT BALLOON OUTLINE BY 
CONNECTING POINTS 

XBTM(NB2-*l) = XFTM(NF*-l) = XLBDTM(NL8 + ll=XTTMINT + l)=XMlN 
YBTM(N82+1) = YFTM(NF + 1 )=YL BOTM( NLB+1 ) = YTTMINT + l )=YMI N 
XBTM(NB2+2)=XFTM(NF+2) =XLBOTM( NLB +2 )=XTTM(NT+2 )=SCALE 
Y8TMINB2*2)=YFTM(NF+2)=YLB0TM(NLB<-2)= YTTMINT + 2 )=SCALE 
CALL LINEIXBTM,YBTM,NB2,l,0,l,.l ) 

CALL L INEIXFTM, YFTM, NF, 1,0,1, .1) 

CALL L INE (XLBDTM, YLBOTM, NLB, 1,0,1,. 1) 

CALL LINE(XTTM,YTTM,NT,1.0tl» .1) 
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DRArf X AND Z AXES FOR EQUILIBRIUM BALLOON POSITION 

CALL LINEIXAXE, YAXE , 2 , 1 , 0 , 1 , • 1 l 
CALL LINE(XAXE(5>,YAXE(5I ,2,1 • 0,1,. I) 

PLOT C G POSITION FGR TIME FRAME 

XMG=-IXHIN-XM)*RSCLSYMG=-(YM1N+ZMI*RSCLS CALL PNT PL T ( XMG , YMG , 11 , 1 ) 

SHIFT PLOT ORIGIN IF ISHIFT IS 0 

IF ( ISHIFT «EQ*0)CALL C AL PL T ( X SHI FT , 0 . , -3 ) 

50 CONTINUE 

SHIFT PLOT ORIGIN AND CHECK FOR NEXT CASE 

CALL CALPLTI ( AXESL + XSHIFT >,0 . ,-3) $ GO TO 10 
C 

999 CALL CALPLT <Q.,0., 9998 

ENO PROGRAM CALBAL M 
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PROGRAM FOR PLOTTING LATERAL MODES OF MOTION 


Program CALBLM2 plots the lateral modes of motion in similar fashion to that 
described for the longitudinal program. The organization of this program is basically 
the same as that for the longitudinal program. However, the additional complication of 
treating the rolling motion about the stability axis requires the z-coordinates of the com- 
ponents to be given in addition to the x- and y- coordinates. The apparent shape of the 
balloon must also be altered as a result of the trim pitch angle. Roll displacements are 
treated as linearized displacements and the hidden portion of the top fin is deleted in 
approximate fashion. The eigenvector is normalized by yaw angle 0. An example of a 
plot generated by this program is given in figure 6. 







Figure 6.- Example of plot from program CAL3LM2. 

The four input-data cards are essentially the same as for the longitudinal program 
with the following exceptions: For Card 2, the third through eighth 10-column fields 
contain 

YREAL real part of y-component of eigenvector normalized by 0, m/deg 

YIMAG imaginary part of y-component of eigenvector normalized by ip, m/deg 

PREAL real part of 0-component of eigenvector normalized by \p, 

nondimensional 

PIMAG imaginary part of 0-component of eigenvector normalized by 0, 

nondimensional 

SREAL real part of ^-component of eigenvector, normally 1.0 

SIMAG imaginary part of 0-component of eigenvector, normally 0.0 

For Card 3, the variable AMPL refers to the initial yaw angle 0, in degrees. 
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Listing of Input Data Cards for Sample Case 


••• *.*••••••*•*•**•**•***•*••** COLUMN NUMBER ********************************** 

0000000001111111111222222222233333333334444tt444445555555555666666666677777777778 

12345678901234567890123456789012345678901234567890123456789012345678901234567890 


LRC BALLOON - 
-.088919 
12 . 

9 0 1 


REFERENCE CONFIGURATION - MODE 2 AT V*20 M/S, ROOT* 


40736 

-.23446 

-.80488 

.003732 -.015992 

5.980 

0 

30.848 

2.5 



089+. 407*1 

1 . 0 . 
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Listing of Program 


0VERLAVICALBLM2 ,0,0 > 

PROGRAM C AL 8LM2 ( OUTPUT 3 1 » 1 NPUT=1 » TAPE 5= I NPUT ) 

C ** ********************************************************************** 

c* * 

C* PROGRAM A2664.6 - LATERAL EIGENVECTOR PLOTTING PROGRAM * 

C* PLOTS C G POSITIGN ANO/OR BALLOON OUTLINE FOR A SINGLE MODE OF * 

C* MOTION FOR SELECTEO INCREMENTS OF TIME * 

C* SEE SUBROUTINE WRITEUPS FOR DESCRIPTION OF C ALPL T.NOT ATE ,L I NE . OR * 

C* PNTPLT - LEROY SLOWS PLOTTER FOR DRAWING WITH INK * 

C* * 

£**,**•*«** ****** *********** ****** ***** ************* *********** ********** 
DIMENSION X8 #L 1 46) , X FI N ( 16 ), XL BAND I 46 ) ,XTETI 61 ,XAXEI 8 I 
+ , C A Y ( 2 I ,Y BALI 46) ,YFIN( 16 ) ,YLBANDI 46 ) , VTETI 6) ,YAXE( 8) 

♦ •Z8AL(46)«ZFIN(16),ZLBAND146I,ZTET(6) ,ZAXE(4) 

♦ , IC18) ,X8TM|48I ,XFTM(24»,XLBDTM|48),XTTMI10),XTRIM(114) 

+ ,IN(2) ,YBTM(4B) , YFTM I 2 4 > .YLBDTMI 48 1 ,YTTMI 10 > ,ZTR I M 1 1 14 ) 

DATA AI/6HI 8A10I/,F10/8H|8F10.0I/,AO/10H( /X10A10/)/ 

DATA I4,A0W/6HI20I4),7H( 13A 10 ) / 

DATA FGT/.125/,AXESL/10./,ISHIFT/0/ 

DATA DEGRAD/ .017453292 5199433/ 

DATA FTPERM/3. 280839895/ SI UNITS 

CATA FOR LRC BALLOON IN FEET 

EALLCCN DATA IS FOR NOSE FACING LEFT - TURNED AROUND IN CALCULATIONS 
DATA NB,NF,NLB,NT/23,16,23,6/ 

DATA (XBALl I ) ,1=1,231/0.. .01, .07 , . 2 , . 33 , . 5 , .67 , 1 . , 1 .33, 1 . 67 ,2 . , 

+ 2. 33, 2. 6 7, 3., 3. 33, 4., 4* 67, 5. 33, 6. 67, 8., 9. 33, 10. 51,25./ 

DATA ( YEALI II ,1=1,231/0., .12, .45, .95, 1.33,1.72 ,2.03 ,2.52,2.88, 

♦ 3. 18, 3. 42, 3. 63, 3. 77, 3. 87, 3. 55, 4. 06, 4. 14, 4. 18, 4. 13, 3. 99, 3. 78, 

+ 3. 57, .33/ 

DATA Z B AL /46*Q . / 

DATA XFIN/17. 22, 25. 93, 25. ,2*17. 22, 25. 93, 25. ,2* 17. 22, 25. 93, 25. , 

+ 2* 17.22, 25.53,25. , 17. 22/ 

DATA YFlN/4*0.,2.07,4.25, .33,2.08,4*0. , -2. 07, -4. 25, -.33, -2. 07/ 

DATA ZF IN /-2. 07 ,-4.25, -.3 3, -2. 07, 4*0., 2.07 ,4.2 5,. 33, 2. 07, 4*0./ 

DATA ( VLB ANDCI) , 1 = 1,23 I/O. , .25, .95, 1. 69,2.16,2.5,2. 78,2.96,3.09, 

♦ 3. 19, 3. 32, 3. 42, 3. 47, 3. 41, 3. 23, 2. 97, 2. 7, 2. 25, 1.53, 1.07,. 63,. 27,0./ 

DATA 1XLBAN0I I ) ,1=1,23)/. 89, .92,1., 1.33,1.67,2. ,2.33,2. 67,3. , 

♦ 3. 33, 4., 4. 67, 5.33, 6.67, 8. ,9.33,10.51 ,12., 14., 15., I 5. 73, 15. 98, 

♦ 16. C6/ 

DATA ZLBAND/46*2. 333333333333/ 

OATA XTET/2.64,4.13,2. 64, 13. 79 , 4. 1 3 , 1 3. 79/ 

DATA YTET/2. 93,0., -2. 93, 1.62,0., -1.62/ 

DATA ZTET/2.33,12. 51, 2*2.33, 12.51,2.33/ 

DATA XMC/15.42/ ,YMC /O. / , XCG/ 14 .32/ , YC G/0. / , ZCG/ .29/ 

DATA XMlN,XMAX,YMlN,YMAX/-60. , 50. ,-60 . , 50. / 

REFLECT BALLOON HALF-PROFILE, INITIALIZE PLOTTING ROUTINES, COMPUTE 
SCALING PARAMETERS, ANO SET ORIGIN FOR INITIAL FRAME 

NL8 1= NL B+ 1 $ NL B2= NLB*NL B S DO 101 I=NLB1 , NL82 
IB=NLB2+1-I $ XL8AN0I I )=XLBAND( IB) 

101 VLB AND 1 1 l=- YL BANDI I B I 

NTOT = 2*NB + NF + 2* M.6 + NT $ NT2 = NT/2 $ NF4 = NF/4 

NR 1=NB ♦ 1 1 NB2=NB*NBt DO l I = NBl,NB2t IB = NB2 + 1- M. X8 AL II) = XB AL II B ) 

1 YBALI I l=-YBAL( IB) 

SCALE=IXMAX— XMINI/AXESL S R SCL=1 . /SC A LE * ZER=.25 
X AX E I 1 1 =— 10 . * XAXEI 2 ) = 10 . t XAXE I 3 ) =XAXE I 7 ) =X M I N 
XAXEI 5)=XAXE16)=0. t X AX E 14 ) =XAXE I 8 ) = SC AL E 
YAXEI1) = YAXEI2)=0- * Y AX E I 3 ) =YAX E (7 ) = YM IN 
YAXEI4)=YAXEI6)=SCALE $ YAXEI5>=-10. $ YAXEI6)=10. 

CALL CALCCMP $ CALL C AL PLT I ZER , ZER , - 3 ) $ CALL LEROY 
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READ INC ENT 1 FI CAT I CN ARRAY. CALL FOP DATE AND TIME, AND PRINT AND 
WRITE AT TEE BOTTOM OF THE FIRST FRAME 

10 READ A 1 1 1 0 i IF( EOF, 51999, ll 

11 CALL CAYTIM(OAY) £ PRINT AO, ID, DAY 
CALL NOTATE! 0., 0., H6T, ID, 0., 001 

READ EIGENVECTOR -MOTION DATA, TRIM PARAMETERS, ANO FRAME 0AT4 

RE AC FIO,ROOTR,ROOTI,YREAL,YIMAG,PREAL,PIMAG,SREAL, SI MAG 

REAC F10, AMPL,TRIMA, TIME, XSHIFTt READ I4,NFRM» I SH I F T ,MOOB AL , I N I MOD 

IM M0D= IMMOC + MCDBAL 

CONVERT DISPLACEMENT TO FEET, SCALE TIME, AND COMPUTE MAGNITUDES AND 
PHASES OF MODAL COMPONENTS 

DT=.CA25*TIME £ AMFL=DEGRAC*AMPL 
DT W=OT*RQOT I * DTR = QT*ROOTP, 

TH=DEGRAD*TRIMA a CTH=C0S(THJ S STH=SIN<THI 

YABS=S0RTtYREAL**2«-YIMAG**Z l/DEGRAD t PHI Y= ATAN2! YI MAG, YRE AL > 
YA9S=FTPERM*YABS 

PABS=SQRT (PRE AL **2 +P IMAG* * 2 ) $ PHIP = AT AN2 1 P I MA G,PRE AL I. 

CPY= COS ( P Hi Y I £ SPY = SIN(PHIY1 t CPP =C OS I PH I P I $ SPP = S I N( PHI P I 

ROTATE BALLOON IN PITCH TO TRIM ANGLE 

DO 15 1= 1 , NTOT $ XTEH=XBAL< I >-XCG £ Z TE M= ZB AL ( I >-ZC G 
XTR1MII )=— XTEM*CTH<-ZTEM*STH 
15 ZTRIM( I »=XTEM*STH+ZTEM*CTH 
NB2 l = NB2-» l 

ZTRIM(NB21I = ZTR IMI NB21 *3 ) = ZTR I M ( NB2 1 ) ♦ ( XTR I MI NBI-XTR I M( NBZ 1 ) ) 

♦ /( XTRIMINB21+1 l— XTR IMINB21) ) * I ZTRI M! NB2 + 2 I -ZT R IM ( NB2 1 > > 
XTRIM(NB21I=XTR IMI NB21+3l=XTRlM(NB) 

50-L00F IS TIME-FRAME LOOP 

DO 50 NTS=L,NFPM * N=NTS-1 

CALCULATE MOTION FOR TIME FRAME 

ST=S lNIN*DTw) $ CT=COS( N*DTW > $ AET =AMPL*E X PI N*DTR) $ SM = AET *CT 
YM=-AET*YABS*ICT*CPY-ST*SPY ) £ PM=— AET*PABS*(CT*CPP-ST*SPP) 
CS=COS(SMI £ SS=SI N ( SM I t I F (I SHI FT . E 0. 0 ) GO TO 18 

IF C G FOINT ONLY IS DRAWN FOR THIS TIME FRAME GO TO AO 

IF(MCD(N+INlKOD,MODBAL).NE.O)GO TO AO 

20— LOOP PREPARES ARRAYS FOR BALLOON OUTLINE FOR PLOTTING 

25-LOCP - FINS, 30- LOOP - LOAD BANO, ANO 35-LOOP - TETHER BRIDLE 
POINTS OFF-SCALE ARE SET TO OUTER LIMITS OF FRAME 

SET AOJLSTEO MINIMUM AND SCALE FACTOR, AND PLOT BALLOON OUTLINE BY 
CONNECTING POINTS 

18 DO 20 1=1, NB2 £ XT EM=XTR I Mt I ) £ YTEM=YB AL I I l-ZTRI Ml I) *PM 
XBTM( I)=XTEM*C$+YTEM*SS £ YBTM! I l=XTEM*SS-YTEM*CS-YM 
IF(XBTM(I).LT.XMIN)XBTMCI> = XMIN £ IF(XBTMII) . G T . XMAX > XB TMI I ) =XMAX 
IF(YBTM(I» ,LT .YMINIYBTMI I )=YHIN £ I F{ YBTM! I ) ,G T .YMAX > YBTM! I ) =YMAX 
20 CONTINUE 

XBTM(NB2+1I=XMIN t XBTM(NB2+2)=SCALE 
YBTM(NB2*1) = YMIN $ YBTM < N 82 ♦ 2 I =SC ALE 
CALL LINEUBTM, YBTM.NB2 ,1 ,0,1, .1) 
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DO 28 IF= 1 , 4 t K = l+ ( I F — 1 1 *NF 4 

DO 25 J-I.NF4 % I = J+K«-2*t IF-1J-1 $ 1 1 =NB2 + J+K- 1 
XTEM=XTRIMI I I ) t YTEM=Y3AL I I tl-ZTRI Mill )*PM 
XFTMIIJ=XTEM*CS+YTEM*SS % Y F TM I I )=XTEM*SS— YTEM*CS— YM 
I FIXFTMU ) .LT.XMIN IXFTMI l )=XMIN S I FI XFTMI I ) .G T .XMAX I XFTM l I ) =XMAX 
IF{ YFTM( I J .LT.YMIN ) YFTMI 1 )=YMIN * IFI YFTMII) . G T . YMAX I YFTH ( I )=YMAX 
25 CONTINUE 

XFT M< l *1 ) =XM I N * XFTMI I*2)=SCALE 

Y FTM ( I +1 ) =YM IN I Y FTKt I *2 ) = SC ALE $ KI = K«-2* ( I F- 1 1 
23 CALL L INF IXFTMIKI ) .YFTMI K I > ,NF4, 1,0,1, .11 
DO 30 1=1 * NLB2 $ I I = I+NB2+NF 
XTEM = XTPIM( l I ) t YTEM=YBAL( I1WTRIMI II )*PM 
XLBOTMI I )=XTEM*CS+YTEM*SS $ YLBDT M< I ) =XTEM* SS- YTE M*C S-YM 
IF ( XLBDTMI I ).LT .XMINIXLBDTMI I)=XMIN 
IFIYLBDTMI I ) .LT.YMIN) YLBUTMI I)=YMIN 
I F ( XL BUT Mil) .GT .XMAX) XLBOTMI I)=XMAX 
IF ( YLBDTMI I) .GT.YMAX)YLBOTMl I)=YMAX 
30 CONTINUE 

XL6DTM INLB2+I ) = XMIN * XLB OTH ( NLB2+2 )=SCAL E 
YL6DTMINLB2*1)=YMIN $ YLB OTM ( NLB2+2 )= SCALE 
CALL LINEIXLBDTM, YLBDTM.NLB2, 1,0.1. .1 ) 

00 38 IT = 1» 2 $ K= 1 ♦( IT-1) *NT2 

DO 35 J= 1 *NT2 » 1 = J + K + 2*I IT-1 )-l $ 1 1 =NB2 + NF+NLB2+J *K-1 
XTEM = XTRI Mill) $ YTEM= YB AL ( II) -ZTR I MI 1 1 ) * PM 
XTTH (1 ) = XTEM*CS + YTEM*SS S YTTMI 1 ) =XT E M*SS- Y TEM*CS-YM 
IF I XTTMI I ) .LT.XMIN JXTTMI I ) = XM I N t IFIXTTMI I ) .GT .XMA X ) XTTM ( I )=XMAX 
I F ( YTTMI I ) ,LT .YMIN) YTTMI I )=YHIN $ IF ( YTTMI I ) ,G T .YMA X ) YTTM l I )=YHAX 
35 CONTINUE 

XTTMI l+l )=XMIN t XTTMI I+2I=SCALE 

YTTMI I+1)=YMJN I YTTMI I+2)=SCALE $ KI = K*2* 1 1 T-ll 
38 CALL LlNEIXTTM(KI),YTTMlKI»,NT2,l,0,l,.l) 

CRAW X AND Y AXES FOP EQUILIBRIUM BALLOON POSITION 

CALL L1NEIXAXE, YAXE .2. 1 .0,1 , .1 ) 

CALL LINE IXAXE I 5) » YAXE ( 5), 2 ,1 ,0,1, .1) 

PLOT C G POSITION FOR TIME FRAME 

40 XMG=-XMIN*RSCL i YMG=- I YM IN+Y M ) *RSC L * CALL PN TPLT I XMG , YMG, 1 1 , 1 ) 

SHIFT PLOT ORIGIN IF ISHIFT IS 0 

IF! ISHIFT .EQ.O) CALL CALPLT ( XSHI FT ,0 . ,-3 1 
50 CONTINUE 

SHIFT PLOT ORIGIN AND CHECK FOR NEXT CASE 

CALL CALPLT I IAXESL + XSH1FT > ,0. ,-3) t GO TO 10 
C 

999 CALL CALPLT(0.,0.,999) 

END PROGRAM CAL BL M2 


Langley Research Center, 

National Aeronautics and Space Administration, 
Hampton, Va., April 9, 1973. 
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APPENDIX 


DESCRIPTIONS OF SELECTED SUBROUTINES 


Basic Subroutines 


Usage descriptions are given for several of the basic subroutines called by the 
programs of this report. Subroutines QUADET and ROMBERG were written by the 
authors. The versions of REIG and MATRIX given herein are modified versions of the 
LRC computer system library. The subprograms CXINV, DAYTIM, RECIN, and 
RECOUT are LRC computer system library subroutines. Note that listings of QUADET, 
ROMBERG, REIG, MATRIX, and CXINV are given in the listing of the longitudinal pro- 
gram STABLTY. The listings of the RECIN, RECOUT, and DAYTIM are not given, but 
the usage descriptions are given to facilitate replacement with equivalent routines if 
necessary. 

In addition to the above subprograms, a FORTRAN subroutine to simulate the 
COMPASS subroutine MASCNT is described and listed. The subroutine MATINV which 
is called by MASCNT (simulator) is also described and listed. 

The subroutines are described in the following order: 


QUADET . 
ROMBERG 
REIG . . . 
MATRIX . 
CXINV . . 
RECIN . . 
RECOUT . 
DAYTIM . 
MASCNT . 
MATINV . 


Page 

108 

111 

113 

115 

117 

119 

121 

124 

126 

128 
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APPENDIX — Continued 


Subroutine QUADET 

LANGUAGE : FORTRAN and COMPASS 

PURPOSE : To convert an n x n matrix equation, [A]a^ + [b]a + [C] = 0, 

to a 2n x 2n matrix equation of standard eigenvalue form, 
[E]-A[l] = 0. 

USE : CALL QUADET (A, B, C, NMAX, NMAX2, N, IOP, EIGDET, CNO) 

A A two-dimensional input array containing the 

coefficients of A^. The matrix is not destroyed. 

B A two-dimensional input array containing the coef- 

ficients of A. The matrix is not destroyed. 

C A two-dimensional input array containing constant 

coefficients. The matrix is not destroyed. 

NMAX Column length (number of rows) of A as dimen- 
sioned in the calling program. 

NMAX2 Column length (number of rows) of EIGDET as 
dimensioned in the calling program. 

N The order of A, B, and C. 

IOP An integer, 10 or 11 supplied by user to select 

option for calculating the condition number of A: 
IOP = 10 Condition number of A is calculated. 
IOP = 11 Condition number of A is not 
calculated. 

EIGDET The two-dimensional eigenvalue output array. 

CNO CNO is the Turing condition number of A. If 0.0 

is returned from MASCNT for the determinant 
of A (singular A), CNO = -1. 

RESTRICTIONS : Arrays A, B, C, and EIGDET are used with variable dimen- 

sions in the subroutine. The maximum size in the calling 
program must be A (NMAX, N), B (NMAX, N), C (NMAX, N), 
EIGDET (NMAX2, NMAX2); NMAX2 i 2 *NMAX. A must 
be nonsingular. Restricted to real arrays. 
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APPENDIX - Continued 


METHOD: 


The n x n system [A] X^ + [b] X + [C] = 0 is equivalent to 
the 2n x 2n system (refs, (a) and (b)). [E] - x[l] = 0, where 


-A _1 B 


-A _1 C 


[E] = 


I 


0 


L 1 J 

QUADET performs these matrix manipulations within the 
storage allocated for EIGDET. The matrix solutions are 
obtained from a matrix routine written in COMPASS 
(ref. (c)). The arrays A, B, C, and EIGDET are treated as 
one -dimensional arrays. A, B, C are transferred into loca- 
tions (NMAX2 **2-3 *N *N) through (NMAX2 **2) of EIGDET. 
MASCNT is called and A"1 b is returned in the location of B 
and A"^C is returned in the location of C in EIGDET. If 
IOP = 10, A - * is returned in A and Turing’s condition number 


defined as 


C A * || A || » 



is calculated. The matrices [A -1 b], [A"lc], [ij, and [0] 
are then transferred to the upper left 2n x 2n portion of 
EIGDET and the remainder of EIGDET filled with indefinites 
(< p 1777 0000 0000 0000 1777) such that EIGDET is returned as 



N 


NMAX2 
-N-H 


N 


I 17/7 

-A -1 B |-A -1 C I//// 


NMAX2 


\ 1 t 1 


NDEF. 


N 


0 


LLl_ _ J- / ///• 

V / / ////// / / / 


/ / / / / / / 
/ / / 


v / 


■/////// 7 ' 


I NDEF. 


f ; . / / / / J 

' ' ' '///r 
' ' '' / / 
/ / / 
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APPENDIX - Continued 


ACCURACY: 


REFERENCES: 


STORAGE: 


The number of figures lost in the operations A"1 b and A~^C can 
be estimated as logio(CNO) where C-NO is condition number 
of A. 

(a) Pipes, Louis A.; and Hovanessian, Shahen A.: Matrix- 

Computer Methods in Engineering. John Wiley & Sons, 
Inc., c.1969, pp. 265-267. 

(b) Frazer, R. A.; Duncan, W. J.; and Collar, A. R.: Elementary 

Matrices. Cambridge Univ. Press, 1960, p. 289. 

(c) Anon.: Control Data 6000 Series Computer Systems Matrix 

Algebra Subroutines Reference Manual. Publ. 

No. 60135200, Control Data Corp., June 1966. 

(d) Marcus, Marvin: Basic Theorems in Matrix Theory. Nat. 

Bur. Stand. Appl. Math. Ser. 57, U.S. Dep. Com., Jan. 22, 
1960, p. 21. (Reprinted 1964.) 

QUADET 333g 

MASCNT 43 1 g 

LABELED COMMON 1130 8 - /IROW/IROW(300) 

/ICOL/ICOL(300) 


SUBPROGRAM USED: MASCNT 
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APPENDIX — Continued 


LANGUAGE : 

PURPOSE : 

USE: 


RESTRICTIONS: 


Subroutine ROMBERG 
FORTRAN 

To integrate the function FUN{X) between the limits A and B. 
CALL ROMBERG (SUM, A, B, FUN, EPS) 

SUM The computed value of the integral. 

A The lower limit of integration. 

B The upper limit of integration. 

FUN The name of the integrand function. 

EPS Relative error criterion. 

An example of the usage follows. A segment of the program 

to evaluate \ cos(t^ + p) dt might be: 

J a 

EXTERNAL FUN 

COMMON PHI 

PHI=.33 

A=.l 

B=.275 

EPS=l,E-6 

CALL ROMBERG (SUM, A, B, FUN, EPS) 

m 

END 

The function subprogram would be: 

FUNCTION FUN(T) 

COMMON PHI 

FUN = COS(T * T + PHI) 

RETURN 

END 

A function subprogram with a single argument must be written 
by the user to evaluate the integrand FUN(X). Since 
ROMBERG requires that its integrand be a function of one 
argument only, any variable parameters of the integrand must 
be passed to the function subprogram through COMMON. The 
name of the function must appear in an EXTERNAL statement 
in the calling program. (See example under USE.) 
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APPENDIX - Continued 


METHOD: 


ACCURACY: 


REFERENCE: 


STORAGE: 


This subroutine is taken with minor modifications from p„ 199 
of the reference. The method is described on pp. 166 to 170 
of the reference. ROMBERG integration is a so-called auto- 
matic method in that the routine normally returns a value of 
the integral within the prescribed accuracy (see ACCURACY, 
below). 


Normally, iteration proceeds until 


SUMi - SUM^! 


< EPS* 


B-A| * Max 
Xe[A,B] 


FUN(X) 


The subroutine is dimensioned such that if the accuracy 
criterion is not satisfied after 19 steps (262 144 integrand 
evaluations) the best estimate of the integral at that point is 
returned and no error message is given. 

Davis, Philip J.; and Rabinowitz, Philip: Numerical Integration. 
Blaisdell Pub. Co., c.1967. 

254g locations 
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APPENDIX - Continued 


Subroutine REIG 

LANGUAGE : FORTRAN 

PURPOSE : To find the eigenvalues of a real matrix. 

USE : CALL REIG (A, N, NVAL, NVEC, RTR, RTI, VEC, NMAX, 

INDEX, IRUN, P, NPLUS, SAVE) 

A A two-dimensional array containing the input matrix. 

N The order of A; 1 IN S NMAX. 

NVAL The number of eigenvalues desired. 

NVEC Dummy parameter; not used. 

RTR A one -dimensional array in which the real parts of 

the eigenvalues are stored. The real eigenvalues 
are stored first, and are sorted by magnitude in 
decreasing order. 

RTI A one -dimensional array in which the imaginary 

parts of the eigenvalues are stored. 

VEC Dummy parameter; not used. 

NMAX The maximum order of A as stated in the dimension 
statement of the calling program. 

INDEX A one -dimensional array of temporary storage. 

IRUN A one -dimensional array of temporary storage. 

P A one -dimensional array of temporary storage. 

NPLUS The order of A plus one; i.e., NPLUS = N + 1. 

SAVE A two-dimensional array of temporary storage. 

RESTRICTIONS : The following arrays must be dimensioned in the calling 

program as indicated: A (NMAX, NMAX), RTR (NMAX), 

RTI (NMAX), INDEX (NMAX), IRUN (NMAX), P (NMAX), 

SAVE (NMAX, NMAX + 1). N is limited to 100. The input 
matrix is not destroyed. 
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APPENDIX - Continued 


METHOD : 

ACCURACY : 

REFERENCES: 


STORAGE : 

SUBPROGRAMS USED: 


The original matrix is transformed to upper Hessenberg form. 
Then the eigenvalues are found using the QR transform of 
J. G. F. Francis (ref. (a)). 

Accuracy depends on the conditioning of A (ref. (c)). 

(a) Francis, J. G. F.: The QR Transformation - A Unitary 

Analogue to the LR Transformation Comput. J., vol. 4. 
Pt. 1 - Oct. 1961, pp. 265-271. 

Pt. 2 - Jan. 1962, pp. 332-345. 

(b) Wilkinson, J, H.: Stability of the Reduction of a Matrix to 

Almost Triangular and Triangular Forms by Elementary 
Similarity Transformations. J. Assoc. Comput. Mach., 
vol. 6, 1959, pp. 336-359. 

(c) Marcus, Marvin: Basic Theorems in Matrix Theory. Nat. 

Bur. Stand. Appl. Math. Ser. 57, U.S. Dep. Com., Jan. 22, 
1960. (Reprinted 1964.) 

REIG 2167g locations including QRT and HESSEN. 

The following subprograms are used by REIG: 

QRT 540g locations 

HESSEN 431g locations 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE: 


USE: 


Subroutine MATRIX (Modified) 
FORTRAN AND COMPASS 


Shortened version of CDC subroutine MATRIX (CDC publication 
No. 60135200) for a comprehensive group of matrix operations. 
This version deletes the real symmetric eigenvalue/eigenvector 
options to conserve storage. In addition, Turing's condition 
number is calculated for option 10. 

CALL MATRIX (I, M, N, K, A, KA, B, KB, C, KC) 


I - option 
code 

0 

1 

2 

3 

4 

5 

10 


11 

20 

21 

22 

23 

24 


Matrix operation 

Transpose A into B (B ^ A) 

Move A into B 

Symmetric product A^ * A = B, B packed 
Deleted 

Pack symmetric matrix A into B 
Unpack symmetric matrix A into B 
Solve D X = E with D"* returned, 

A upon call = [ D \ E ] 

A upon return = [D"l i X] 

Same as 10 except calculation of D _1 deleted 
Multiply A*B = C; C = A or = B is 
permissible. 

Add A + B = C 
Subtract A - B = C 
Transpose multiply A^ * B = C 
Scalar multiply A *B = C; A = Scalar 


M 


Number of rows of the matrix A. 


N 


Number of columns of the matrix A. 


K Unused, = 0, except for I = 10, 11, 20, and 23. 

For I = 10 and 11, K = pivoting parameter 
K = 0, full search each pass 
K = 1, search Jth row on Jth pass 
K = 2, no pivoting, use diagonal elements 
For I = 20 and 23, K = number of columns 
of matrices B and C. 

A Matrix A. 
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APPENDIX — Continued 


RESTRICTIONS: 


METHOD: 


ACCURACY: 


REFERENCE: 


STORAGE: 


KA Column size of matrix A. 

B Matrix B, or the determinant of D for I = 10. 

KB Column size of matrix B. 

C Matrix C, or Turing’s condition number for I = 10. 

KC Column size of matrix C. 

For description of restrictions, see reference. However, it may 
be noted that maximum number of rows or columns is 300. 
Maximum dimensions in calling program must be consistent 
with operations. For options 0 and 1, KA £ m, KB £ N; for 
options 10 and 11, N £ M, KA £ M; for options 21, 22, and 23, 
KA £ M, KB £ M; for options 21 and 22, KC £ M; for 
option 23, KA £ M. Note that for options 10 and 11, matrix A 
must contain D and E of DX = E in adjacent columns. 

Option 3 has been deleted for this version. 

The CDC subroutine MATRIX is a FORTRAN subroutine that 
computes the eigenvalues and eigenvectors of a real symmetric 
matrix for option 3. For all other options, the subprogram 
only sets up the call to a COMPASS subroutine, MASCNT, to 
perform the matrix operations. In this version the lengthy 
FORTRAN eigenvalue/eigenvector section has been deleted 
to conserve storage, and the calculation of Turing's condition 
number has been added for the matrix-inversion option. See 
reference for further discussion of methods. 

Applicability depends on matrix operation. For matrix inversion 
and simultaneous linear equations, the loss of significant fig- 
ures can be estimated from logjo(CNO) where CNO is Turing's 
condition number defined as: 

cno = || a || *'Ia" 1 ||/n 

Anon.: Control Data 6000 Series Computer Systems Matrix 
Algebra Subroutines Reference Manual. Publ. No. 60125200, 
Control Data Corp., June 1966. 

MATRIX (Mod.) 132 8 

MASCNT 431g 

LABELED COMMON 1130 8 - /IROW/IROW(300) 

/ICOL/ICOL(300) 
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APPENDIX — Continued 


Subroutine CXINV 

LANGUAGE : FORTRAN 

PURPOSE : To solve the complex matrix equation AX = B where A is a 

square complex coefficient matrix and B is a complex matrix 
of constant vectors. The solution to a set of simultaneous 
equations, the matrix inverse, and the determinant may be 
obtained. 

USE : CALL CXINV (A, N, B, M, DETERM, IPIVOT, INDEX, MAX, 

ISCALE) 

A A two-dimensional complex array of the coeffi- 

cients. On return to the calling program, A 
contains the matrix inverse. 

N The order of A; 1 = N = MAX 

B A two-dimensional complex array of the constant 

vectors B. On return to the calling program, 

B contains the X values. 

M The number of column vectors in B. If M = 0, 

there is no solution of the simultaneous equa- 
tions; however, there must be an entry for B in 
the call statement. 

DETERM Gives the complex value of the determinant by the 
formula: 

DET(A) = (l0 100 ) ISCALE (DETERM) 

IPIVOT A one -dimensional integer array of temporary 
storage. 

INDEX A two-dimensional integer array of temporary 
storage. 

MAX The maximum order of A as stated in the dimen- 

sion statement of the calling program. 

ISCALE A scale factor computed by the subroutine to keep 
the results of computation within the floating 
point word size of the computer. 
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APPENDIX - Continued 


RESTRICTIONS : 

METHOD : 

ACCURACY : 

REFERENCE : 

STORAGE : 

SUBPROGRAMS 


The calling program must dimension arrays as indicated: 

A (MAX, MAX), B (MAX, M), IPIVOT (MAX), INDEX (MAX, 2). 
It must also type A, B, DETERM as COMPLEX. 

The input matrices A and B are destroyed. On return to the 
calling program the inverse of A is in A and X is in B. 

Jordan's method is used to reduce the matrix A to the identity 
matrix I through a succession of elementary transformations: 
l n , l n . i, . . *A = 1. If these transformations are simul- 
taneously applied to I and to the matrix B of constant vectors, 
the results are A - * and X where AX = B. 

Each transformation is selected so that the largest element is 
used in the pivotal position. 

Total pivotal strategy is used to minimize the rounding errors; 
however, the accuracy of the final results depends upon how 
well -conditioned the original matrix is. 

Fox, L.: An Introduction to Numerical Linear Algebra. Oxford 
Univ. Press, 1965. 

721g locations 

USED : Library: CABS 
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APPENDIX — Continued 


LANGUAGE : 

PURPOSE: 

USE: 


EXAMPLES: 


Subroutine RECIN 

COMPASS 

To read binary records written by the subroutine RECOUT. 

1. Type 1 - Individual elements (not arrays) 

CALL RECIN (LUN; IT; ICOUNT; LI, L2, . . LN) where 

LUN = logical unit number 
IT = type = 1 

ICOUNT = location reserved by the user. RECIN will store 
the following information in this location: 

0 = end-of-file; nonzero = number of words actu- 
ally in the logical record. If the end-of-file flag 
was written by a call to RECOUT with IEOF = 1, 
then end-of-file testing must be done by testing 
ICOUNT for 0. If the end-of-file was written by an 
END FILE statement, then testing for end-of-file 
must be done by the IF (EOF, LUN) statement. 

LI, L2, . . ., LN = individual list elements. 

2. Type 2 - Arrays 

CALL RECIN (LUN, IT, ICOUNT, ARRAY, IFIRST, ILAST, 
INC) where 

LUN = logical unit number 
IT = type = 2 

ICOUNT = 0 = end-of-file; nonzero = number of words actually 
in the logical record (See ICOUNT under type 1) 

ARRAY = array name 

IFIRST = first subscript 

ILAST = last subscript 

INC = increment 

1. CALL RECIN (1, 1, K, A, B, ARRAY(l), ARRAY (2)) 

Read a record from logical unit 1 into A, B, ARRAY(l) and 
Array (2). Note that if the record contained only 3 words, K 
would equal 3 and ARRAY(2) would be unaltered. 


119 



APPENDIX - Continued 


RESTRICTIONS: 


METHOD: 


ACCURACY : 

REFERENCE : 

STORAGE : 

OTHER CODING 
INFORMATION: 


2. CALL RECIN (1, 2, K, ARRAY, 1, 39, 2) 

Read 20 words from logical unit 1 into 
ARRAY(l), ARRAY(3), . . ., ARRAY(39). 

If RECIN is used on a file, the only other FORTRAN statements 
which may be used on that file are REWIND and IF (EOF, i). 

The buffer size must be at least 2001g. 

RECIN must be used to read files written by RECOUT and only 
by RECOUT. 

RECIN reads into a central memory buffer physical records 
written by RECOUT, then passes to the user the requested 
logical record via a list giving the elements of the desired 
logical record. RECIN is analogous to a FORTRAN binary 
READ statement. 

Not applicable. 

None. 

315g locations 

Day file diagnostics and their meaning: 

(1) UNASSIGNED FILE MEDIUM FILE TAPEnn - No JET 
exists for this file. Every file has a file environment table 
that contains information describing the file to the system. 
This error would probably be caused by the file not being 
defined in the PROGRAM card or the user accidentally over- 
writing portions of his program. 

(2) BAD TYPE — The IT parameter was not 1 or 2. 

(3) UNCHECKED END FILE - The program attempted to read 
past EOF without testing for EOF. 

(4) READ/WRITE SEQUENCE ERROR - An attempt wa.s made 
to read after writing. 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE: 


Subroutine RECOUT 

COMPASS 

To write short binary records on a disk or tape in an optimum 
manner to increase peripheral processor and central processor 
efficiency. These records are to be read by RECIN. 

RECOUT may be used for either tape or disk files. 

1. Type 1 - Individual elements (not arrays) 

CALL RECOUT (LUN; IT; IEOF; LI, L2, . . ., LN) where 

LUN = logical unit number 

IT = type = 1 

IEOF = 1 if an end-of-file flag is desired, otherwise it 
must be zero. There are two methods by which 
the user may end his file. One method is to call 
RECOUT with IEOF = 1 when the last data 
record is written. This will cause an end-of-file 
flag (a short length record of less than 512 jqCM 
words) to be written. RECIN is programed to 
sense this and will set ICOUNT = 0 when sensed. 
If this method is used, the user must set IEOF = 1 
when outputting his last data record since RECOUT 
should not be called with an empty list. For all 
other calls to RECOUT, IEOF must be set = 0. 

The other method of ending the file is to use the 
END FILE statement. This is the most convenient 
way of ending the file. 

LI, L2, . . ., LN = individual list elements. 

2. Type 2 - Arrays 

CALL RECOUT (LUN, IT, IEOF, ARRAY, IFIRST, ILAST, 

INC) where 

LUN = logical unit number 

IT = type = 2 

IEOF = 1 if an end-of-file desired 
= 0 no end-of-file 

See explanation under type 1. 

ARRAY = array name 
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APPENDIX — Continued 


EXAMPLES: 


RESTRICTIONS: 


METHOD: 


ACCURACY : 

REFERENCE: 


IFIRST = first subscript 
ILAST = last subscript 
INC - increment 

(1) CALL RECOUT (1, 1, 0, A, B, ARRAY(l), ARRAY(2)) 

Write a record on logical unit 1 containing A, B, ARRAY(l), 
ARRAY(2). 

(2) CALL RECOUT (1, 2, 0, ARRAY, 1, 20, I) 

Write a record containing ARRAY(l) through ARRAY(20). This 
is equivalent to WRITE(l) (ARRAY (I), I = 1, 20). 

If RECOUT is used on a file, the only other FORTRAN state- 
ments which may be used on that file are REWIND and END 
FILE. 

The buffer size must be at least 2001g. A normal FORTRAN 
buffer is this size. 

FILES written with RECOUT must be read with RECIN. 

If the list to be written in a logical record is larger than 
511 -lqCM words, then RECOUT offers no advantage and should 
not be used. 

If the programer wishes to write a file containing multifiles 
using RECOUT, then he must end each file by setting IEOF = 1 
and not by using the END FILE statement. Consequently, he 
should then test for end-of-file in RECIN by testing ICOUNT 
for zero. 

Under the CDC SCOPE 3.0 operating system each binary write 
commanded by the FORTRAN statement WRITE (LUN) . . . 
causes one or more physical records to be output to either a 
disk or tape file. If the logical record size written by the 
programer is small and the number of records processed is 
large, then excessive usage of 1/0 routines and equipment 
results. To decrease this 1/0 time, RECOUT blocks binary 
data into an optimum record size (512iqCM words) in a central 
memory buffer before transmitting it to the actual disk or tape 
file. 

Not applicable. 

None. 
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APPENDIX — Continued 


STORAGE : 

OTHER CODING 
INFORMATION: 


340g locations 

Day file diagnostics and their meaning: 

(1) UN ASSIGNED FILE MEDIUM FILE TAPEnn - No FET 
exists for the file. Every file has a file environment table 
that contains information describing the file to the system. 
This error would probably be caused by the file not being 
defined in the PROGRAM card or the user accidentally over- 
writing portions of his program. 

(2) BAD TYPE - The IT parameter was not 1 or 2. 

(3) BUFFER TOO SMALL - The buffer size was less than 

20010 . 

(4) BAD PARAM COUNT - The number of parameters in the 
call was illegal. 

(5) WRITE/READ SEQUENCE ERROR - A write request was 
made after a read request. 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE: 


USE: 


Subroutine DAYTIM 

COMPASS 

The purpose of this subroutine is to provide the current date 
and time of day to a central memory program. 

The subroutine may be called from a FORTRAN program using 
the following sequence: 

CALL DAYTIM (RESULT, JUDATE) 

RESULT = A single subscripted array dimensioned by 

two (2). The current date will be returned in 
RESULT(l) and the current time of day will be 
returned in RESULT{2). 

JUDATE = An optional parameter. JUDATE need not be 

supplied. If it is, the Julian date will be returned 
in the memory cell named JUDATE. If JUDATE 
is not specified, then the Julian date will not be 
returned. 


The date, the time, and the Julian date will be in display code 
in the following formats: 


DATE: 


b 


MM/DD/YY 

L 


•Year 

■Day 

■Month 

■Blank 


TIME: 


b 


HH. MM. SS 


■Seconds 

•Minutes 

■Hours 

■Blank 


JULIAN 

DATE: 


bbb YY DDD bb 

1 Blanks 

( Day 

1 Year 

Blanks 


Each value may be printed using an A10 format in a FORTRAN 
program. 
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APPENDIX - Continued 


RESTRICTIONS : 

METHOD : 

STORAGE: 


Whenever the 6000 system is deadstarted, the operators key in 
the date and the current time of day. It is the date and the 
current time of day based on the initial date and time of day 
keyed in by the operator that are returned to the calling 
program. 

The subroutine uses the macros supplied by CDC with Scope 3.0 
to obtain the current date, time of day, and Julian date. 

31 8 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE: 


USE: 


Subroutine MASCNT (Simulator) 

FORTRAN 

Simulate the COMPASS language subroutine MASCNT with a 
FORTRAN subroutine for use with options 10 and 11 of 
FORTRAN subroutine MATRIX (options 10 and 11 are for 
matrix inverse and solutions of linear equations, DX = E). 

CALL MASCNT (KR, A, B, C) 

KR An integer array that contains seven of the formal 
parameters of subroutine MATRIX. The usage 
for this version of MASCNT is: 

MATRIX 

parameter Definition 


KR(1) 

I 

Unused option parameter; 
I of 10 of MATRIX is 
assumed 

KR(2) 

M 

Number of rows of A 

KR(3) 

N 

Number of columns of A 

KR(4) 

K 

Unused pivoting parameter; 
full pivoting used by 
MATINV 

KR(5) 

KA 

Maximum number of rows of 
A as dimensioned in calling 
program 

KR(6) 

KB 

Unused 

KR(7) 

KC 

Unused 


A A single two-dimensional array containing the two- 

dimensional matrix of coefficients and the two- 
dimensional matrix of column vectors. For 
DX = E, the first M columns of A must contain D 
and the adjacent (M + 1) to N columns must contain 
E. Upon return to the calling program, the loca- 
tions of E contain the solution vectors. D is 
destroyed and the inverse of D is returned in D. 

B The determinant of D. 

C Unused. 
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APPENDIX - Continued 


RESTRICTIONS: 


METHOD: 


ACCURACY : 

REFERENCE: 


STORAGE: 


The array A must be dimensioned in the calling program as: 

A (KA, MAX), MAX = N. The original matrix D is destroyed. 
Although this version of MASCNT can be used with MATRIX 
option 11, the inverse of D is always obtained. N = 150. 

Subprogram sets up a call to FORTRAN subroutine MATINV to 
perform the matrix operations (see description of MATINV). 
Common blocks IROW and ICOL are used for the temporary 
storage required by MATINV. 

See description of subroutine MATINV. 

Anon.: Control Data 6000 Series Computer Systems Matrix 
Algebra Subroutines Reference Manual. Publ. No. 60135200, 
Control Data Corp., June 1966. 

MASCNT (Sim.) 66 8 

MATINV 542g 

LABELED COMMON 1130q - /IROW/IROW(300) 

/ICOL/ICOL(300) 


SUBPROGRAM USED: MATINV 


SUBRCUTINE MASCNT(KR,A,B,C) 

c 

C FORTRAN SIMULATOR FOR CDC MATRIX PACKAGE COMPASS LANGUAGE SUBROUTINE 
C MATRIX OPTIONS 10 AND II ONLY 
C 

COMMCN/I POW/TROM300) / ICOL/ICCH 300) 

DIMENSION KR (1) ,A( 1) 

NS=1 + K.R(2 l*KR (5 I 
M=KP (3J-KRI 2 ) 

CALL MATINV (A, KRI2) , AINS) ,M, B, I ROW, ICOL ,KRI 5 ) , IS) 

B=10**< 100*IS )*B 
RETURN 

END SUBROUTINE MASCNT 
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APPENDIX - Continued 

Subroutine MATINV 

LANGUAGE : FORTRAN 

PURPOSE : MATINV solves the matrix equation AX = B where A is a 

square coefficient matrix and B is a matrix of constant vec- 
tors. The solution to a set of simultaneous equations, tie 
matrix inverse, and the determinant may be obtained. If the 
user does not want the inverse, use SIMEQ for savings in 
time and storage. For the determinant only, use DETEV. 

USE : CALL MATINV (A, N, B, M, DETERM, IPIVOT, INDEX, NMAX, 

ISCALE) 

A A two-dimensional array of the coefficients. 

On return to the calling program, A“* is 
stored in A. 

N The order of A; 1 IN = NMAX 

B A two-dimensional array of the constant vec- 

tors B. On return to calling program, X is 
stored in B. 

M The number of column vectors in B. M = 0 

signals that the subroutine is used solely for 
inversion; however, in the call statement an 
entry corresponding to B must still be 
present. 

DETERM Gives the value of the determinant by the fol- 
lowing formula: 

DET(A) = (l 0 100)lSCALE (DETERM) 

IPIVOT A one -dimensional array of temporary storage 

used by the routine. 

INDEX A two-dimensional array of temporary storage 

used by the routine. 

NMAX The maximum order of A as stated in the 

dimension statement of the calling program. 

ISCALE A scale factor computed by the subroutine to 

keep the results of computation within the 
floating point word size of the computer. 
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APPENDIX - Continued 


RESTRICTIONS: 


METHOD : 

ACCURACY: 

REFERENCE : 

STORAGE: 


Arrays A, B, IPIVOT, and INDEX are dimensioned with variable 
dimensions in the subroutine. The maximum size of these 
arrays must be specified in a dimension statement of the 
calling program as: A (NMAX, NMAX), B (NMAX, M),. 
IPIVOT (NMAX), INDEX (NMAX, 2). The original matrices, 

A and B, are destroyed. They must be saved by the user if 
there is further need for them. 

The determinant is set to zero for a singular matrix. 

Jordan's method is used to reduce a matrix A to the identity 
matrix I through a succession of elementary transformations: 
£ n , £ n -l> • • •» ^1 = 1. If these transformations are simul- 

taneously applied to I and to a matrix B of constant vectors, 
the results are A - * and X where AX = B. Each transforma- 
tion is selected so that the largest element is used in the 
pivotal position. 

Total pivotal strategy is used to minimize the rounding errors; 
however, the accuracy of the final results depends upon how 
well-conditioned the original matrix is. 

Fox, L.: An Introduction to Numerical Linear Algebra. Oxford 
Univ. Press, 1965. 

542g locations. 
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APPENDIX — Continued 


SUBROUTINE MATINV< A , N , B * M , OET ERM , I P l VOT , INDEX, NMAX , I SCALE I 

MATRIX INVERSICN wITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 

DIMENSION IPI VOT(N) ,A( NMAX , N I , 0 ( NMA X, M) , INDEX! NMAX, 2) 
EQUIVALENCE URCW,JRQW), ( I COLUM , JC QL UM ) , ( AMA X , T, SWAP) 

INITIALIZATION 

5 I SCAL E = Q 

6 R 1 = 1 C • 0**100 

7 R2= I • 0/R1 
10 DETERM = 1 ,0 
15 DO 20 J = 1 ,N 
20 IPIVOT ( J ) =0 
30 DO 550 I - 1 1 N 

SEARCH FOR PIVOT ELEMENT 

40 AMA X= 0 *0 
45 DO 1C 5 J- 1 , N 

50 IF (IPI VOT I J > — 1 1 60, 105, 60 
60 DO ICO K= 1 , N 

70 IF ( IPIVOT! K)-l J 80, 100, 740 

80 IF (ABS(ANAX) — A6S(A( J » K ) ) 185,100, 100 

85 IROW*J 

90 I COL LM-=K 

95 AMAX=A(J,K) 

100 CONTINUE 

105 CONTINUE 

IF (AMAX) 110,106,110 

106 OET E RM = 0 *0 
I SC ALE = 0 
GO TO 740 

110 IPIVOT (I COLUM )= I PI VOT ( I COLUM 1+1 

INTERCHANGE ROWS TO PUT PIVCT ELEMENT ON DIAGONAL 

130 IF i I ROW- ICOL UM ) 140, 260, 140 

140 DETERM--DETERM 

150 DO 200 L=l,N 

160 SWAP=AURGH,U 

170 A(lRCWtL) =A ( I COLUM , L ) 

200 A ( ICCLUM,L)=S WAP 
205 IFCMJ 260, 260, 210 
210 DO 250 L = 1 , M 
220 SWA P = B ( I ROW , L ) 

230 B(IR0W,L)=B( ICCLUM,LI 
250 B(ICCLUM,L)=$HAP 
260 I ND EX ( 1,1 )=1P0W 
270 I NDEX ( I , 2 )= ICOLUM 
310 PIVCT=A( ICOLUM, ICOLUM) 

SCALE THE DETERMINANT 

1000 P I VOT I -P I VOT 

1005 IF( ABS( DETERM )-Rl'} 1030, 1010, 1010 
1010 DETERM=DETERM/R1 
I SC AL E- 1 SC A LE +1 

IF ( AB S( DETERM )-Rl 1 1060 , 1020, 1020 
1020 DETERH=DETERM/R1 


MAT 10010 
MATI0020 
MAT 10030 
M AT 10040 
MAT 10050 
MAT 10060 
MAT 10070 
M A T 1 00 80 
M A T 1 0090 
M A T 101 00 
MATI0110 
M A T 101 20 
MAT 10130 
MAT 101 40 
MAT 10150 
MAT 10160 
MA T I 0 170 
M A T 10 1 80 
M A T I 0 190 
MAT 102 00 
MATI0210 
MAT 10 220 
MAT 1 02 30 
MAT 10240 
M A T TO 250 
M A T 1 0 2 60 
M AT 102 70 
MAT 10 280 
MAT 1 0 290 
MAT 103 00 
MAT 10310 
MAT 103 20 
MAT 10330 
MAT I 0340 
MAT 103 50 
MAT 103 60 
MAT 10370 
M A T 103 80 
MAT 103 90 
MAT 10400 
MAT 1 04 10 
MATE 0420 
MAT 10430 
MAT I 0440 
M AT 10450 
MAT E0460 
MAT 10470 
MAT I 0480 
MAT:0490 
MAT 105 00 
MAT 1 0 5 1 0 
MAT 10520 
MAT 10530 
MAT 10540 
MAT 10550 
MAT 10560 
M AT 1 05 70 
MAT 1 058 0 
MAT 10590 
MAT 10600 
MAT 106 1 0 
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APPENDIX - Continued 


ISCALE=I$CALE+1 
GO TO 1060 

1030 IF! ABS(CETEPM)-R2I 1040 , 1 040 ♦ 1 060 
1040 OEThRf-^0ETERM*Rl 
ISCALE^I SCALE- 1 

IF (ABS< DETERM )-R2 )10 50, 10 50,1 C60 
1050 QETERM=DETERM*R1 
ISCALE=ISCALE-1 

1060 IFUBSIPI VGTn-Rl>1090, 1070, 1070 
1070 PIVCTI=PI VUTI/R1 
ISCALE=ISCALEn 

IF IABSI PIVOT Il-Rl )320f 1030. 1C80 
1080 PlVCTI =PIV0T1/R1 
ISCALE-ISCALE+l 
GO TC 320 

1090 IF ( ABS(P I VOT I J-R2 ) 2000 , 2000, 3 20 
2000 PI VCTI=PIV0TI*R1 
ISCALE=ISCALE— l 

IF ( ABS( PI VGT I J-R2 J2010, 2010,320 
2010 PIVCTI=PIVGTI*R1 
ISCALE-ISCALE-L 
320 DETERM=DETERH*PI VOT I 

DIVIDE PIVOT ROh BY PIVOT ELEMENT 

330 AI ICCLUM, ICOLUM 1 = 1*0 
340 DO 350 L=1,N 

3 50 A I ICCLUM ,L 1 = A 4 1 COLUM, L ) / P I VOT 
355 I F I M I 380, 380, 360 
360 DO 370 L-1»M 

3 70 6 ( ICOLUM ,L)=eUCOLUM,U /PI VC T 

REDUCE NGN— Pi VOT ROWS 

380 DO 550 L 1 =1 , N 
390 IF ( LI - ICCLUM ) 400, 550, 400 
400 T = A (LI, ICOLUM) 

420 A (L 1 , I CULUM ) = 0 .0 
430 DO 450 L = 1 , N 

4 5 J A ( L 1 , L ) = A ( L 1 , L J-A ( ICOLUM,Ll*T 
455 IF(M| 550, 550, 460 
460 DO 500 L*1,M 

500 BIL1,L)=B(L1,L)— B{ ICOLUM, L)*T 
550 CCNTINUE 

INTERCHANGE COLUMNS 

600 DO 710 I - 1 , N 
610 L=N*1-I 
620 IF ( INDEXtL , 1 >-INDEXtL ,2) ) 630, 710, 
630 JFGta=lND6X(L, 1 ) 

640 JCOLLM=INDEX(L,2! 

650 DO 7 C 5 K= 1 , N 
660 SrfAP=A(K, JROfc) 

670 AIK, JRGW)=A(K f JCOLUM) 

700 AIK, JCCLUMI=SHAP 
705 CONTINUE 
710 CGNT INUE 
740 RETURN 
END 


MAT 10620 
MAT 10630 
MAT 106 40 
MATT 06 5 0 
MAT 10660 
M AT 1 0670 
MAT 10680 
MAT 10690 
M AT I 0 7 00 
M AT 1 0 7 1 0 
MAT 10720 
MAT 107 30 
M AT 1 07 40 
MAT 10 750 
MAT 10760 
MAT 10770 
M AT 10780 
MAT 10790 
MAT 108 00 
M A T 108 10 
MATI0820 
MAT 108 30 
M AT I OB 40 
MAT 10850 
MAT 10960 
MAT 108 70 
MAT 108 00 
MAT 10890 
MAT 10900 
M AT I 09 1 0 
MAT 109 20 
MAT I 09 30 
MAT 1 0940 
MAT 109 50 
MAT 109 60 
M A T 109 7 0 
MAT 1 09 BO 
MAT 1 0990 
M AT 1 10 00 
MAT 1 10 10 
MAT 1 10 20 
MAT 1 10 30 
MATI 1040 
MAT 11050 
MATI 1060 
MAT 1 1070 
MAT 110 80 
MAT 11090 
MATI 1100 

630 MAT 1 1 1 10 

MAT 11120 
M AT 1 1 1 30 
MAT 1 1 1 40 
MAT 1 1 1 50 
MAT 1 1 1 60 
MATI 1170 
MAT 11180 
M AT 1 1 190 
MAT 1 1 200 
MAT I 1210 
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APPENDIX - Continued 


Plotting Subroutines 

Usage descriptions are given for the plotting subroutines called by the plotting pro 
grams of this report. These subroutines are LRC computer system library subroutines 
and listings are not given. They are described in the following order: 

Page 


CALCOMP 133 

AXES 134 

CALPLT 136 

DASHLN 138 

LEROY/BALLPT 139 

LINE 140 

NOTATE 141 

PNTPLT 143 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE : 

RESTRICTIONS : 

STORAGE : 

SUBPROGRAMS USED : 

OTHER CODING 
INFORMATION: 


Subroutine CALCOMP 
FORTRAN 

This is the normal mode processor. The necessary parameters 
and linkage are set up to output a tape for the CalComp 
Model 780/763 Electro -Mechanical Plotter. 

CALL CALCOMP 

This call must be given before the first call to a plotting routine. 

CALCOMP 5467g total for all subprograms used. 

PLOTSW, PLT763, BLCR, STRC, TAPWRI, ENCOD1, STRCALL, 
CREATE F, BOUNDCK, TRUNCL, and LOCATE 

The following is a list of messages, the circumstances under 
which they will appear, and the action taken: 

This message is printed in the output 
file and the job is ended in subrou- 
tine PLOTSW. This condition 
occurs if there is no initialization 
CALL CALCOMP in the program 
prior to using subroutines which 
generate plotting output. 

This message is printed in the dayfile 
when the first pen movement is 
encountered as a result of a pro- 
gram call to the plotting subroutines. 

These messages are printed in the 
dayfile when the plotting is com- 
pleted. xxx is the value of the last 
block address on the CalComp 
plotter tape. This block address is 
at the end of the last valid data, 
yyyyyy is the approximate number 
of data points. Plotting is com- 
pleted either as a result of a CALL 
CALPLT(x,y,999) or when the job 
is ended due to an error recognized 
by the CalComp subroutines. 


NO PLOTTING 

DEVICE SPECIFIED 


PLOTTING 

COMMENCED 


THE LAST CALCOMP 
BLOCK ADDRESS 
WAS xxx DATA 
PLOTTED = yyyyyy 
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APPENDIX - Continued 
Subroutine AXES 

LANGUAGE : FORTRAN 

PURPOSE : To draw a line with tick marks at specified intervals, annotate 

the value of the variable at tick marks, and provide an axis 
identification label. 

USE : CALL AXES (X, Y, THETA, DIST, ORIGIN, DV, TMAJ, TMIN, 

BCD, HGT, N) where 

X,Y are the coordinates in floating point inches of 

the starting point of the axis with reference 
to the plotting area origin as established by 
CALPLT. 

THETA is the angle of rotation measured counterclock- 
wise from the X-axis in floating point degrees. 
NOTE: Normally, THETA is 0° for an X-axis 
and 90° for a Y-axis. 

DIST is the length of the axis in floating point inches. 

Should be a multiple of TMAJ. 

ORIGIN is the functional value to be assigned to the 
origin (i.e., the value of the first scale), in 
floating point. 

DV is the adjusted scale factor for the array to be 

plotted (change in value per in.). NOTE: 
Values of ORIGIN and DV which will produce 
a reasonable scale may be calculated using 
the subroutine ASCALE. 

TMAJ is the distance in floating point inches for major 

tick marks (0.25 in. high). Numbers are 
placed on the axis at the major tick marks in 
accordance with the values of ORIGIN and DV. 
The numbers written along the axis are 
adjusted to be between 1000.00 and 0.01 in 
magnitude. Immediately after the last number 
on the axis is placed the caption, xl0 ex P, 
where exp is the required exponent. 

If the values are integer multiples, the deci- 
mal point and decimal places are eliminated. 

A negative TMAJ will cause the actual value 
to be written instead of the adjusted value. 
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APPENDIX — Continued 


RESTRICTIONS : 

STORAGE : 

SUBPROGRAMS USED: 


TMIN is the divisions per inch in floating point for 

minor tick marks (0.125 in. high). To elimi 
nate minor tick marks the following may be 
used: 


TMIN = 0. 

BCD is the character label for the axis (see NOTATE 

routine). 

HGT is the height of the full-size characters in the 

BCD title. Numbers at the tick marks will be 
(0.75 *HGT) high. HGT is in floating point 
inches. 

If HGT = 0., all annotation will be eliminated. 

N is an integer specifying the number of charac- 

ters in BCD title. A negative N places the 
annotation on the clockwise side of the axis 
and a positive N places the annotation on the 
counterclockwise side of the axis. N = 0 is 
not allowed. If it is desired to have no label, 
then the BCD parameter should be 1HA and 
N = +1 or -1. 

Only perpendicular axes are recommended. 

1016 g 

CALPLT, NOTATE, NUMBER, ROUND, SIN, COS 


135 



APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE: 


RESTRICTIONS: 


Subroutine CALPLT 

FORTRAN 

To move the plotter pen to a new location with pen up or down and 
to signal the end of a job segment by incrementing the block 
address number. 

CALL CALPLT (X, Y, IPEN) 

X,Y The floating-point values for pen movement 

IPEN = 2 Pen down 

IPEN = 3 Pen up 

Negative IPEN will assign (X = 0, Y = 0) as the location of the 
pen after moving the X,Y (creating a new reference point) 
and will increase the block number by one. (The block num- 
ber is the number that appears in the display at the top of the 
tape drive on the plotter and identifies the portion of the out- 
put tape that is being plotted. The block address 001 is 
written automatically as a result of the initialization pro- 
cessor call.) Each block address generally implies a sepa- 
rate page or plot. 

IPEN = 999 Writes a terminating block address of 999 for 
peripheral handling of the plotter tape and 
all further processing is skipped. X and Y 
may be any values since they are ignored. 

All X- and Y-coordinates must be expressed as floating-point 
values in inches (actual page dimensions) in deflection from 
the origin. 

(A CALL TO CALPLT WITH EITHER NEGATIVE IPEN 
(USUALLY -3) OR A TERMINATING BLOCK ADDRESS 
(IPEN = 999) MUST BE GIVEN AS THE LAST PLOTTING 
INSTRUCTION BEFORE ENDING A PROGRAM WHICH USES 
ANY OF THE PLOTTER SUBROUTINES: THIS IS TO BE 
SURE THAT ALL PLOTTER INSTRUCTIONS ARE WRITTEN 
ON THE PLOTTER TAPE.) 
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APPENDIX - Continued 


METHOD: 


STORAGE : 

SUBPROGRAMS 


The main subroutine in the CalComp software package is the 
CALPLT subroutine. All other special-purpose subroutines 
eventually call CALPLT either directly or indirectly. Sub- 
routine CALPLT moves the pen in a straight line between the 
present pen position and another pen location to which the 
programer wishes the pen to be moved. 

In order to cause such instructions to be written, the pro- 
gramer specifies the coordinates of the point to which the pen 
is to be moved and whether the pen is to be moved in a raised 
or lowered position. This movement is accomplished by the 
FORTRAN instruction 

CALL CALPLT (X, Y, IPEN) 

Also, the subroutine provides "sequence numbers” on the tape, 
making it possible to afford identification of job segments. 

The block address 001 is written on the first call to CALPLT. 
Thereafter, if the programer defines a new origin or wishes to 
divide the job into several segments, he need only set the argu- 
ment IPEN negative. The CALPLT routine then moves the pen 
to (X,Y); stores this location as (0,0), that is, a new origin; and 
increases the block address by one. 

CALPLT 251g 

USED : PLOTSW, STRCALL, and LOCATE 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE: 


RESTRICTIONS : 

METHOD: 


STORAGE : 

SUBPROGRAMS 


Subroutine DASHLN 
FORTRAN 

To draw a dashed line between two points. 

CALL DASHLN (XO, YO, XI, Yl, D) where 

X0,Y0, are coordinates in floating point inches of the 

and XI, Yl end points of a line. 

D is the length in floating point inches of each 

dash. 


No matter what the slope of the line, the dash length will remain 
the requested length. The first dash of a line segment is set 
at one -half the requested dash length so that whenever line 
segments are connected, the dash at the meeting of the line 
segments will not be twice as large as the requested dash 
length. The last dash of a line segment will derive its 
length from that portion at the end of a line segment which 
is less than the requested dash length. The subroutine will 
draw a dash the length of the line segment if a dash length 
is requested that is equal to or larger than the line segment. 

If the end points of the line segment are the same, the sub- 
routine will return to the calling program. 

267 8 

USED : CALPLT, SQRT 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE : 

RESTRICTIONS : 

STORAGE: 


Subroutine LEROY/BALLPT 
FORTRAN 

The parameters necessary to accommodate plotting with the 
liquid ink pen are set up by CALL LEROY. Once set, this 
mode will remain in effect as long as CALCOMP is in use or 
until a call to BALLPT is given. 

The parameters for plotting with the ballpoint pen are reset by 
CALL BALLPT. This mode is automatically in effect with 
CALCOMP unless there has been a call to LEROY. 

CALL BALLPT 
CALL LEROY 

The CALL LEROY should be used only with CALCOMP. In addi- 
tion to reducing the speed of the plotter for all plotting move- 
ments, the number of plot vectors in any annotation is consid- 
erably increased. 

The CALL LEROY must be made prior to any plotting calls, 
but after the CALL CALCOMP. 

LEROY/BALLPT 25g 


SUBPROGRAMS USED: None. 



APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE : 


RESTRICTIONS : 

STORAGE : 

SUBPROGRAMS 


Subroutine LINE 

FORTRAN 

To draw a continuous line through and/or draw a symbol at each 
successive data point (stored in an array). 

CALL LINE (XARRAY, YARRAY, N, K, J, L, S) where 

XARRAY are the names of arrays containing the 

and YARRAY X values and Y values, respectively, to 
be plotted. Values must be in floating 
point. 

N is the number of points to be plotted. 

K is the interleave factor of a mixed array 

(normally = 1). 

J is positive for line and symbol plot, nega- 

tive for symbol only plot. The magnitude 
specifies the alternate number of data 
points at which to plot a symbol. 

= 0 for line plot. 

= 1 for symbol for every data point. 

= 2 for symbol for every other data 
point, etc. 

L is an integer describing symbol to be used, 

see NOTATE routine for list. 

S is the desired symbol height in floating 

point (see NOTATE routine). 

LINE expects the adjusted minimums and scale factors as 
described in ASCALE since the routine automatically sets an 
origin and scales the data in the array. 

352 8 

USED : CALPLT, NOTATE, WHERE 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE: 


Subroutine NOTATE 
FORTRAN 

To draw alphanumeric information for annotation and labeling. 

CALL NOTATE (X, Y, HEIGHT, BCD, THETA, N) where 

X,Y are the floating point page coordinates of the first 

character. The coordinates of the lower left- 
hand corner of the characters are specified. 

HEIGHT specifies character size and spacing in floating 
point inches for a full-size character. The 
smallest possible character is 0.07 inch high. 
The width of a character will be (4/7) * HEIGHT 
and the space between characters is 
(2/7) * HEIGHT. 

The ith character is plotted at: 

Xi = X + (i-1) (6/7) (HEIGHT) (Cos 6) 
y i = Y + (i-1) (6/7) (HEIGHT) (Sin 6) 
UiSN 


BCD is the string of characters to be drawn and is usu- 

ally written in the form: nHXXXX — (the same 
way an alpha message is written using FORTRAN 
format statements). Instead of specifying alpha 
information as above, one may give the beginning 
storage location of an array containing alpha- 
numeric information. 

THETA is the angle in floating point degrees at which the 
information is to be drawn. Zero degrees will 
print horizontally reading from left to right, 90° 
will print the line vertically reading from bottom 
to top, 180° will print the line horizontally 
reading from right to left (i.e., upside down), 
and 270° will print vertically reading from top 
to bottom. 

N is the number of characters, including blanks, in 

the label. 
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APPENDIX - Continued 


METHOD: 


OTHER CODING 
INFORMATION : 

STORAGE : 

SUBPROGRAMS USED: 


The character height is a variable entry parameter to the sub- 
routine NOTATE. However, the width-to-height ratio is fixed 
at 4/7. This is because the characters are defined by a 
series of bi-octal offset pairs for a 4x7 matrix. The refer- 
ence origin for the offset pairs which define each character is 
the lower left-hand corner of the matrix. The X and Y values 
which are entry parameters to NOTATE define the location of 
the lower left-hand corner of the first character to be plotted 
for this entry to NOTATE. Subsequent characters to be plotted 
are spaced from the previous character origin by 6/7 of the 
specified character height. 

Only the alphanumeric option used in this report is described by 
this usage description. 

1252 8 

CALPLT, CNTRLN, DECODE, DECOD2, SIN, COS 
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APPENDIX - Continued 


LANGUAGE : 

PURPOSE : 

USE: 


ACCURACY : 

STORAGE : 

SUBPROGRAMS USED: 


Subroutine PNTPLT 

FORTRAN 

To draw NASA standard plot symbols centered on a given 
coordinate value. 

CALL PNTPLT (A, B, NO, IS) where 

A is the X coordinate for the centered symbol in 

floating point inches. 

B is the Y coordinate for the centered symbol in 

floating point inches. 

NO is an integer specifying the symbol to be used. 

= 21 for a point • 

= 22 for a plus sign + 

IS is an integer value specifying the size symbol to 

be used. 

= 1 small 
= 2 medium 
= 3 large 
(See fig. Al.) 

A positive integer value for NO in the calling sequence will pro- 
duce symbols of the same quality as in figure Al. A negative 
integer value will produce symbols of less quality but will 
result in a considerably faster computer run. 

506 8 

CALPLT, CIRCLE, CNTRLN 
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APPENDIX - Concluded 


INTEGER 

REFERENCE 

SMALL 

SIZE 

MEDIUM LARGE 

INTEGER 

REFERENCE SMALL 

SIZE 

MEDIUM LARGE 

1 

o 

O 

o 

11 

© 

© 

© 

2 

□ 

□ 

□ 

12 

B 

0 

m 

3 

o 

O 

O 

13 



<$> 

4 

A 

A 

A 

14 

A 

A 

A 

5 

b. 

A 

A 

15 

tk 

k 

k 

5 

b 

[A 

A 

16 

& 

Si 

k 

7 

O 

Q 

Q 

17 

a 

a 

© 

8 

<? 

O 

O 

18 

<s> 


<S> 

3 

0 

0 

0 

13 

$ 

$ 

$ 

10 

A 

A 

A 

20 

& 

& 

& 


Figure Al.- NASA standard plot symbols. 



REFERENCES 


1. Bairstow, L.; Relf, E. F.; and Jones, R.: The Stability of Kite Balloons: Mathematical 

Investigation. R. & M. No. 208, Brit. A.R.C., 1915. 

2. Neumark, S.: Equilibrium Configurations of Flying Cables of Captive Balloons, and 

Cable Derivatives for Stability Calculations. R. & M. No. 3333, Brit. A.R.C., 1963. 

3. DeLaurier, James D.: A Stability Analysis of Cable -Body Systems Totally Immersed 

in a Fluid Stream. NASA CR-2021, 1972. 

4. DeLaurier, James D.: A First Order Theory for Predicting the Stability of Cable 

Towed and Tethered Bodies Where the Cable Has a General Curvature and Tension 
Variation. VKI-TN-68, Von Karman Inst. Fluid Dyn., Dec. 1970. 

5. DeLaurier, James D.: A Stability Analysis for Tethered Aerodynamically Shaped 

Balloons. J. Aircraft, vol. 9, no. 9, Sept. 1972, pp. 646-651. 

6. Vorachek, Jerome J.; Burbick, James W.; and Doyle, George R., Jr.: Investigation of 

Dynamic Behavior of Tethered Balloon Systems. AFCRL-72-0113, U.S. Air Force, 
1972. 

7. Redd, L. Tracy: A Towing Technique for Determining the Aerodynamic Forces on 

Tethered Balloons. Paper presented at Sixth Air Force Cambridge Research 
Laboratories Scientific Balloon Symposium (Portsmouth, N.H.), June 1970. 

8. Redd, L. Tracy; Bennett, Robert M.; and Bland, Samuel R.: Experimental and Ana- 

lytical Determination of Stability Parameters for a Balloon Tethered in a Wind. 
NASA TN D-7222, 1973. 

9. Redd, L. Tracy; Bland, Samuel R.; and Bennett, Robert M.: Stability Analysis and 

Trend Study of a Balloon Tethered in a Wind, With Experimental Comparisons. 

NASA TN D-7272, 1973. 

10. Redd, L. Tracy; Bennett, Robert M.; and Bland, Samuel R.: Analytical and Experi- 

mental Investigation of the Stability of a Balloon Tethered in a Wind. Paper pre- 
sented at Seventh Air Force Cambridge Laboratories Scientific Balloon Symposium 
(Portsmouth, N.H.), Sept. 1972. 

11. Etkin, Bernard: Dynamics of Flight. John Wiley & Sons, Inc., c.1959. 


ftU.S. GOVERNMENT PRINTING OFFICE: 1373 - 739 - 152/32 

145 


C/?t- 




